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PREFACE 


This  thesis  is  the  description  of  the  design  of  a digital  control  for  an 
electric  power  system.  The  input-output  terminal  is  an  innovative,  interactive 
graphics  terminal.  The  techniques  and  intricasies  of  such  a design  are  described  in 
detail  so  the  user  may  make  modifications  and  improvements  to  the  system. 

The  thesis  goes  further  to  propose  various  power  system  applications  for 
this  type  control  system.  Not  only  is  the  system  described  here  an  important 
Power  System  educational  tool  but  can  become  a powerful  experimental  research 
tool  as  weli. 

1 am  extremely  indebted  to  the  foresightedness  of  Dr.  John  E.  Fagan, 
my  faculty  advisor,  and  Dr.  M.  E.  Council  for  conceiving  such  a system  and 
procuring  the  equipment  to  make  the  design  realization  possible. 

1 thank  Dr.  Fagan  for  his  constant  help  and  advice  on  matters 
concerning  both  the  design  and  the  preparation  of  this  thesis. 

I also  thank  Dr.  Council  and  Dr.  C.  R.  Hayden  for  serving  as  members  of 
my  graduate  committee. 

Last  but  never  least,  I thank  my  wife,  Judi,  for  constant  care  and 
understanding  while  I was  engaged  in  this  effort. 


ABSTRACT 

J This  thesis  presents  the  details  of  the  design  for  the  digital  computer 
control  of  an  electric  power  system.  The  input-output  medium  is  the  innovative, 
interactive  graphics  terminal.  The  combination  enables  a man-machine  interface 
with  interaction  at  a level  not  achieveable  in  earlier  control  systems.  The  system 
easily  solves  the  problem  of  scale  encountered  with  the  large  power  system  by 
storing  representations  of  the  system  on  disk  and  recalling  them  as  needed.  The 
displays  also  present  the  system  variables  from  remote  points  to  enable  better 
monitoring  and  control. 

The  collection  of  displays  described  in  this  thesis  make  possible  a 


powerful  and  unique  research  and  educational  facility.  Experimental  research  on 
digital  control  of  an  electric  power  system  is  prohibitive  on  a real  power  system. 
Educationally,  it  provides  the  student  state-of-the-art  training  in  control  of 
electric  power  systems. 

The  information  provided  is  applicable  to  the  design  of  any  digital 


control  system  using  interactive  graphics. 
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DIGITAL  COMPUTER,  INTERACTIVE  GRAPHICS  CONTROL 
OF  AN  ELECTRICAL  POWER  SYSTEM 

CHAPTER  ONE 

INTRODUCTION 

Power  System  generation,  transmission,  and  distribution  networks 
coupled  by  switching  and  load  center  substations  make  up  a system  that  covers 
vast  geographical  areas.  Without  adequate  planning  for  protection  and  control 
during  contingencies,  this  network  system  may  collapse,  as  was  the  case  in  the 
New  England  power  outages. 

Contingencies,  such  as  the  removal  of  a transmission  line  or  generator 
due  to  faults  caused  by  weather  conditions,  may  cause  a system  unbalance  that 
cannot  be  simply  corrected.  As  the  system's  automatic  controls  operate  to 
protect  system  equipment  from  overload  and  destruction,  the  human  contoller 
monitors  and  makes  decisions  as  to  load  shedding,  generation  adding,  or  system 
rescheduling,  attempting  to  keep  as  much  of  the  system  supplying  power  as 
possible.  If  the  decisions  are  in  error  because  of  inadequate  system  protection, 
controllers  lack  of  information,  and/or  lack  of  controller  training,  the  result  will 
be  a possible  system  collaspe. 

In  an  effort  to  enhance  the  control  of  an  electric  power  system,  the 
digital  computer  and  related  devices  are  being  used  to  better  control  system 
reactions.  The  computer's  ability  to  recall  instructions  and  make  pre-programmed 
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decisions  at  the  proper  instant  make  it  a very  effective  power  system  controller. 
The  adaptibility  and  speed  of  the  computer  points  to  future  closed  loop  operation 
of  the  electric  power  system. 

A problem  encountered  with  computer  interface  is  the  real  time 
presentation  of  system  configuration  and  data  for  the  human  controller.  Also 
needed  is  an  input  medium  for  real  time  reaction  to  contingencies  by  the 
controller.  The  solution  is  interactive  graphics. 

Interactive  graphics  provides  near  real  time  communication  between  a 
human  operator,  the  computer,  and,  ultimately,  the  system  being  controlled.  The 
controller  sees  a representation  of  the  system  configuration  and  data  that's 
updated  constantly.  Any  changes  desired  are  commanded  by  opting  to  a list  of 
commands  or  circuit  actions  on  the  display.  The  interface  between  man  and 
machine  is  as  direct  as  seeing  and  acting;  interaction  at  a level  not  achieveable  in 
earlier  control  systems. 

The  problem  of  scale  for  the  control  and  monitoring  of  an  electrical 
power  system  is  not  a minor  problem.  The  physical  dimensions  of  most  power 
systems  precludes  representation  on  a small  scale  in  a control  room  environment. 
However,  the  compactness  of  the  computer  and  its  ability  to  store  data  has 
enabled  the  reduction  of  the  system  representation  and  its  associated  data  to  a 
control  cabinet  and  the  graphics  terminal.  Without  physical  movement,  the 
operator  has  at  his  command  the  complete  system  on  a series  of  displays,  called  as 
needed  by  pointing  to  the  graphics  screen. 

Of  prime  importance  to  control  and  monitoring  are  the  current  values 
of  a systems  variables.  For  the  large  power  system  the  collection  of  data  from 
very  remote  points  and  presentation  in  a meaningful,  readable  form  is  nearly  an 
insurmountable  task.  With  graphics  oriented  control,  the  task  is  reduced  to  a size 
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easily  presentable.  The  graphics  displays  present  remotely  sensed  data,  changed 
to  digital  form,  at  positions  on  the  configuration  display  representing  its  origin. 
The  data  can  be  changed  to  per  unit  if  desi  ed. 

It  is  with  this  in  mind  that  this  project  was  originated;  The  Control  of  a 
Power  System  Simulator  with  a digital  computer  connected  to  an  interactive 
graphics  terminal.  Specifically,  the  project  was  to  first  draw  the  one-line  diagram 
representations  of  the  simulator  and  then  coordinate  the  control  of  the  displays  to 
ultimately  perform  actions  on  the  system.  This  paper  attempts  to  explain  the 
details  of  designing  such  a system. 

Chapter  Overview 

Chapter  One  contains  the  introduction  to  the  problem. 

Chapter  Two  contains  descriptions  of  the  hardware  necessary  to 
accomplish  the  digital-simulator  interface.  The  limations  of  the  hardware  and  its 
reliability  are  discussed. 

Chapter  Three  contains  brief  descriptions  of  the  code  necessary  to  build 
a graphics  display. 

Chapter  Four  details  considerations,  design,  and  optimizing  of  the 
software  for  completing  the  one-line  diagram  displays.  Aspects  of  subpicture 
numbering  and  trouble  shooting  ideas  are  also  presented. 

Chapter  Five  describes  in  detail  the  main  program  that  controls  and 
performs  actions  as  directed.  It  approaches  the  program  in  chronological  order. 

Chapter  Six  is  the  results  in  the  form  of  photographs  of  the  displays. 

Chapter  Seven  concludes  with  some  future  applications  for  this  type  of 
control  system. 
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CHAPTER  TWO 

HARDWARE 

Power  System  Simulator 

The  power  system  simulator  is  an  excellent  educational  tool.  Power 
systems  are  excessively  large  and  expensive.  A physical  realization  on  a small 
scale  enables  the  student  to  "see"  the  basics  and  perform  experiments  that  would 
be  prohibitive  on  a real  system. 


The  simulator  (Fig.  2.1)  is  a small  power  system  consisting  of  scaled 
generators,  a transmission  system,  sub-transmission  system,  substations,  and 


loads.  The  generation  is  three  dc  motor/synchronous  generator  sets  of  1 KW,  1 
KW,  and  3 KW  capacity.  Additional  tie  capacity  may  be  supplied  through  the 
simulator  system  interconnection.  The  high  voltage  (600v)  transmission  system 
connects  the  generation  to  two  distribution  substations  where  residential  and 
industrial  loads  are  simulated.  There  is  also  a network  system  fed  from  both 
substations,  and  a load  center  substation  as  well. 

The  circuit  breakers  and  certain  control  switches  are  accompanied  by  a 
special  modification.  The  breakers  have  a remotely  or  manually  controlled 
contactor  in  series.  This  allows  the  breaker  and  circuits  to  be  closed  and  opened 
by  the  computer  instructions.  The  contactor's  terminals  are  routed  to  a control 
panel  where  special  buffer  circuits  change  five  volt  computer  originated  signals  to 
1 15  v signals. 


Computer 

The  digital  computer  used  for  the  interface  and  to  run  the  VT11, 
graphics  terminal  is  a Digital  Equipment  Corporation  PDP1IT3*!  (Fig.  2.2).  It 
includes  a DECWRITER  typewriter  input  terminal  and  two  RK05  magnetic  disk 
cassettes.  The  CPU  is  connected  to  the  peripherals  by  a UN1IMJS  system.  The 
data  transfer  takes  place  over  this  bus.  The  memory  section  contains  64K  words 
of  semi-conductor  memory  of  which  less  than  28K  is  needed  to  perform  the  task 
described  here. 

The  operating  system  is  RSX-1  1M  which  has  a multi-tasking  capability. 
The  task  or  program  described  here  runs  as  a single  task,  however.  The  graphics 
terminal  doesn't  require  full  time  servicing  from  the  CPU,  so  multi-tasking  is 
possible  while  it  is  operating. 
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Graphics  Terminal 

The  VT11  graphics  terminal  (Fig.  2.3)  is  a single  color,  variable 
intensity,  random  position  scan  CRT  terminal  for  real  time  graphics  display.  The 
screen  is  17"  diagonal  and  defines  1023  coordinate  points  in  both  x-  and  y- 
directions.  A light  pen  for  user  interaction  with  the  CPU  is  provided,  too.  The 
terminal  contains  a display  processor  that  is  integral  to  the  system. 

The  VT11  display  processor  can  operate  as  a peripheral  on  the  UNIBUS 
system  just  as  any  other  device.  It  can  also  access  the  memory  directly  and  fetch 
its  data  independently  of  the  CPU.  The  memory  accessed  is  called  a display 
buffer  and  must  exist  in  the  lower  28K  of  memory.  The  buffer  must  be  set  up  by 
software  as  an  initialization  process.  The  VT11  will  also  issue  interrupts  to  the 
CPU  when  it  detects  the  light  pen  has^ben^pointed  to  a sensitive  area  of  the 
screen  (a  light  pen  "hit"). 

The  light  pen  is  an  infrared  light  detector.  When  the  software  directs  a 
screen  intensification  for  the  light  pen  within  the  detection  angle  of  the  pen,  and 
interrupt  is  communicated.  The  processor  "remembers"  the  beam  position  and 
subpicture  number  it  was  tracing  when  the  "hit"  occurs.  Global  flags,  positional 
data,  and  subpicture  number  are  then  passed  to  the  CPU.  This  information  is  used 
as  it  is  programmed  to  be  used  by  the  CPU  to  change  the  display  buffer.  Thus,  the 
graphics  display  is  changed  as  a response  to  a light  pen  hit. 

Integral  to  the  VT11  is  a group  of  specialized  hardware  to  accomplish 
quickly  and  accurately  certain  graphics  displays.  One  is  the  vector  generator. 
The  calculations  necessary  to  draw  a vector  or  line  between  two  points  is  done 
internally  with  hardware.  The  line  display  is  difficult  because  the  beam  must 
follow  any  slope  and  light  enough  points  of  the  square  grid  pattern  to  look 
straight.  There  is  also  a problem  of  accuracy  of  start  and  stop  points.  Since  there 
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is  some  delay  between  the  time  the  beam  is  turned  off  and  when  it  actually 
disappears  on  the  screen,  the  delay  must  be  accounted  for  by  the  circuitry.  To 
avoid  flicker  of  the  presentation,  the  vectors  must  also  be  drawn  quickly.  Four 
vector  types  are  available:  solid,  long  dash,  short  dash,  and  dot  dash. 

The  text  or  alpha-numeric  characters  are  generated  by  special 
hardware,  also.  As  the  text  mode  is  initiated  a special  sweep  generator  is  set  up 
that  sweeps  the  beam  up  and  down  in  a small  rectangle.  A ROM  contains  digital 
words  for  each  character  so  the  appropriate  dots  in  the  matrix  are  intensified  to 
finally  cause  the  representation  to  appear.  As  an  added  feature  the  sweep  is 
slanted  with  ramp  signals  to  cause  the  characters  to  appear  as  italics.  The  text 
generator  has  96  ASCII  characters  and  an  additional  31  special  characters  such  as 
Greek  letters  and  math  symbols.  The  variety  of  characters  available  enable 
excellent  clarity  and  distinguishability  of  textual  presentation. 

Limitations 

There  are  some  limitations  to  the  system,  none  of  which  are  critical. 
One  is  a very  slight  flicker  of  the  display.  Since  the  beam  traces  the  pattern  line 
by  line  and  point  by  point,  the  more  that  is  displayed,  the  longer  it  takes  to  trace. 
The  phosphor  on  the  screen  holds  this  problem  to  a minimum  by  holding  the  display 
long  enough  for  the  next  trace  to  re-illuminate  the  display.  The  flicker  becomes 
pronounced  with  a display  buffer  size  of  around  1000  words.  This  does  limit  the 
data  to  be  displayed  on  one  picture.  This  is  easily  fixed  by  using  more  pictures, 
each  with  less  detail.  However,  optimization  of  the  buffer  is  a necessity  and  will 
be  discussed  later. 

Another  limitation  is  compiler  and  task  size.  The  graphics  language  is 
Fortran.  The  Fortran  compiler  (8K  words)  must  be  resident  in  memory  while 
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compiling.  So  the  programs  may  have  to  be  sectioned  into  subroutines  to  obtain 
the  object  files.  A similiar  problem,  to  a lesser  degree,  exists  with  the  task 
builder  or  link  step.  These  limitations  have  been  relieved  with  the  recent  addition 
of  32K  words  of  memory  for  total  of  6kK. 

Interface 

The  interface  circuitry  is  designed  by  the  University  of  Oklahoma  and 
built  by  a number  of  students.  This  hardware  changes  the  five  volt  signals  of  the 
computer  to  115  volt  level  commands  for  the  simulator  contactors.  The  analog 
data  sampling  hardware  interface  for  ultimate  digital  display  on  the  graphics 
terminal  has  been  built  by  this  team. 

Analog  to  digital  converters  are  necessary  to  convert  the  analog  data 
samples  to  digital  form.  The  software  subroutine  to  handle  the  AR 1 1 A-D 
converters  was  written  by  OU  students.  Minor  changes  were  made  to  make  it 
more  compatible  to  the  main  program  and  system. 

Reliability 

All  of  the  system  hardware  has  proven  capable  of  performing  the  task 
described  herein.  Its  reliability  is  demonstrated  best  by  its  past  performance. 
There  has  been  only  one  major  malfunction  in  the  past  years  operation.  There  has 
been  some  difficulties  with  the  light  pens.  They  are  unable  to  take  rough  handling 
and  if  damaged  may  cause  spurious  light  pen  hits  to  occur. 


9 


CHAPTER  THREE 

GRAPHICS  SOFTWARE 

The  software  available  for  the  graphics  is  provided  as  part  of  the 
computer  package  by  DEC.  It  is  a collection  of  Fortran  callable  subroutines  that 
build  a display  buffer  that  contains  instructions  for  the  display  processor. 
Functions  on  the  display  such  as  line  drawing,  point  placement,  subpicture 
numbering,  and  text  placement  are  then  performed  when  the  task  is  ran.  RSX- 
11M,  version  2 is  the  operating  system  used  with  the  more  sophisticated  version  3 
becoming  available  soon.  A description  of  the  subroutines  and  concepts  necessary 
to  complete  a display  or  picture  follows. 

Initialization 

The  beginning  of  each  picture  must  be  the  creation  of  a common  block 
to  contain  the  display  buffer.  It  is  standard  and  called  DFILE  and  contains  the 
array  IBUF(n),  the  display  buffer.  The  next  call  is  a graphics  initializing  call, 
called  INIT(n).  Its  purpose  is  to  clear  the  screen,  initialize  all  control  flags  and 
system  variables,  and  link  the  VT1  I to  the  UNIBUS.  The  INIT(n)  call  may  be  used 
afterward  at  any  point  in  a program  to  re-initiate  a new  display.  (See  figure  3.1) 

COMMON/DFILE/IBUF(l  100) 

CALL  INIT(1 100) 

Fig.  3.1.  Example  of  initiation  calls. 
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Display  Buffer 


The  heart  of  the  graphics  display  is  the  display  buffer.  All  the 
information  used  by  the  display  processor  in  the  VT 1 1 is  in  the  display  buffer 
which  is  the  common  array,  IB1JF  (see  Fig.  3.1).  The  dimensioned  size  of  the  array 
is  limited  only  by  the  requirement  to  be  resident  in  the  lower  28K  of  memory. 
However,  it  should  be  kept  at  a minimum  to  avoid  flicker.  The  dimensioned  size 
of  the  buffer  has  no  effect  on  the  flicker.  It  is  the  actually  used  portion  that  is 
important.  This  doesn't  mean  that  the  array  should  be  dimensioned  large,  because 
the  memory  is  reserved,  even  il  its  not  used,  wasting  memory  you  may  need.  If 
the  buffer  size  is  too  small,  an  error  message  stating  such  will  be  issued  to  the 
teletype  terminal.  The  program  is  now  ready  for  drawing. 

Basic  Subroutines 

The  basic  subroutines  used  to  build  pictures  are  APNT,  VECT,  LVECT, 
ROOT,  and  FIGR.  Each  is  described  briefly: 

a.  APNT(x,y)  - causes  the  beam  to  be  positioned  at  absolute  point  x,y 
on  the  screen. 

b.  RDOT(x,y)  - causes  the  beam  to  be  displaced  x and  y,  relative  to 
the  present  position. 

c.  VECT(x,y)  - causes  a line  to  be  drawn  from  present  beam  position, 
to  a point  x,y  relative  to  present  position.  Also  called  short  vector 
for  use  in  short  distances  - not  accurate  for  long  distance. 

d.  LVECT(x,y)  - same  as  VECT  except  used  for  long  lines  - more 
accurate. 

e.  FJGR(  ) - will  cause  lines  to  be  drawn  between  relative 
coordinates  in  an  array  list. 
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Each  of  the  above  subroutines  have  optional  integer  arguments  that 
determine  the  parameters  for  the  beam  for  that  point,  line,  or  figure.  The 
arguments  appear  in  the  order  l,i,f,t  and  must  be  included  only  if  a change  occurs. 
A succession  of  two  commas  indicates  no  change  for  one  parameter  but  a change 
for  later  one.  If  a change  is  made  to  the  i,  f,  or  t parameter,  the  prior  parameters 
must  be  included,  in  order,  or  two  commas  used  in  each  place  to  represent  no 
change.  For  instance,  to  change  the  f parameter  only,  the  sequence  could  be 
(x,y,l,i,f),(x,y,,i,f),  (x,y„,f),  or  (x,y,l,,f).  The  meaning  of  the  parameters  follows: 

1 - light  pen  sensitivity.  If  zero,  stays  the  same,  if  greater  than  zero, 

it  is  sensitive,  if  less  than  zero,  it  is  not. 

i - intensity  of  point,  line,  or  figure.  Scale  from  one  to  eight. 

f - flash  of  presentation.  Same  code  as  1 except  replace  sensitive  with 

flash. 

t - type  of  line.  1 for  solid,  2 for  long  dashed,  3 for  short  dashed,  and  k 
for  dot  dashed. 


Subpictures 

Essential  to  the  optimization  of  the  graphics  display  and  manipulation 
of  the  the  presentation  is  the  concept  of  subpictures.  They  are  similar  to  Fortran 
subroutines  but  have  other  characteristics  that  must  be  known  to  successfully 
program  a display. 

Basically,  a subpicture  is  some  part  of  an  overall  picture  or  nested  part 
of  another  subpicture.  It  is  a defined  group  of  fortran  and  graphics  statements 
that  draw  that  part.  The  SUBP(n)  call  with  one  argument  is  placed  at  the 
beginning  of  the  group.  The  argument  n is  a unique  integer  that  is  associated  with 
the  subpicture.  The  ESUB  call  defines  the  end  of  the  subpicture,  (see  Fig.  3.2) 


Once  a representation  of  a figure,  for  example  a transformer,  is  defined 
as  a subpicture,  it  may  be  copied  at  other  points  on  the  picture.  The  call  is 
SUBP(n,m)  where  n is  a new  unique  integer  and  m is  the  subpicture  being  copied. 
ON(n)  and  OFF(n)  routines  cause  subpicture  n to  be  added  or  removed  from  the 
display.  By  defining  subpictures  and  turning  them  on  or  off,  the  display  is  changed 
as  desired. 


C THIS  IS  A SAMPLE  OF  BUILDING  A SUBPICTURE  NUMBERED  25. 

CALL  SUBP(25) 

CALL  APNT(I00.,200.,-I,-4) 

CALL  VECT(I00.,550.) 

CALL  RDOT(-I00.,0.„-4) 

CALL  VECT(256.,-300.) 

CALL  ESUB 

C THE  END  OF  SUBPICTURE  NUMBER  25. 

C COPY  SUBPICTURE  25  ELSEWHERE  AS  SUBPICTURE  26. 

CALL  APNT(200.,U52.,-l,-U) 

CALL  SUBP(26,25) 

C TURN  OFF  SUBPICTURE  NUMBER  26. 

CALL  OFF(26) 


Fig.  3.2.  Sample  of  creating  subpicture  25  and  copying  as  26.  Then  turning  off  26. 

From  an  optimal  display  buffer's  point  of  view,  the  concept  of 
subpictures  is  very  important.  Each  subpicture  starting  place  is  known  to  the 
processor  and  a jump  to  this  starting  address  is  made  when  copying.  Because  of 
the  capability  to  jump  and  use  parts  of  the  buffer  again  and  again  the  buffer  size 
is  kept  at  a minimum.  The  importance  is  great  when  dealing  with  mini-computers. 

The  OFF(n)  subroutine  uses  the  jump  instruction  also.  When  a 
subpicture  is  turned  off  the  processor  jumps  to  the  end  of  the  subpicture  and 
continues.  Invariably,  the  start  and  end  point  of  the  subpicture  isn't  the  same. 
The  results  of  turning  a subpicture  off  are  therefore  very  humorous  if  there  is  a 
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routine  containing  relative  plotting  following  the  turned  off  subpicture.  So,  follow 
all  subpictures  to  be  turned  off  with  an  absolute  plotting  call. 

Text 

The  TEXT(XXX)  subroutine  is  called  for  the  presentation  of  the 
characters  described  in  the  hardware  chapter.  The  arguments  are  manipulated  to 
present  sequential  text,  special  characters,  and  carriage  return.  The  STAT(n)  call 
enables  or  disables  the  italics. 

Conclusion 

The  graphics  subroutines  are  fully  described  in  the  manual  DEC-1 1- 
AMLEAA-D,  Graphics  Extensions  User's  Guide.  Detailed  description  of  the 
aforementioned  calls  and  others  is  contained  there.  If  a person  desired  to  learn 
the  language,  the  manual  contains  several  faulty  examples  that  are  recommended 
as  starters  for  a beginner.  The  mistakes  in  the  examples  provide  ample 
opportunity  for  learning  trouble  shooting. 
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CHAPTER  FOUR 

ONE-LINE  DIAGRAM  DISPLAYS 

The  beginning  of  the  design  process  for  the  interactive  graphics  control 
system  was  to  build  the  displays  to  represent  the  power  system  simulator.  In 
addition  to  limitations  of  the  hardware,  the  design  had  to  consider  the  ultimate 


Fig.  4.1.  Close-up  of  Generator  Control  Section. 
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user,  the  student  system  operator.  The  one-line  diagram  representations  had  to  be 
easy  to  use,  easily  recognizable,  coherent  with  regard  to  voltage  levels,  and  easily 
adaptive  to  hardware  and  software  requirements. 


Considerations 

Since  the  system  is  to  be  educationally  used  by  students  with  little  or  no 
experience  in  interactive  graphics  control,  the  system  has  to  be  as  simple  to  use 
as  possible.  The  switches  and  circuit  breakers  are  designed  to  change  to  the 
opposite  state  when  pointed  at.  For  raising  or  lowering  voltage  or  frequency, 
arrows  pointing  up  or  down  leave  no  doubt  as  to  their  purpose.  Additionally,  the 


Fig.  4.2.  Close-up  of  CB's,  switches,  "YOU  SURE?",  and  "MENU"  for  displays. 
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magnitude  being  changed  is  displayed  directly  to  the  left  of  the  arrows.  The 
result  is  a simple,  easily  read  and  understood  group  of  displays  forming  the 
system,  (see  Fig.  4.1,  and  4.2) 

Users  will  be  familiar  with  the  simulator  before  using  the  system.  It  is 
important  that  the  layout  of  the  one-line  diagrams  closely  resemble  the  simulator, 
so  the  user  wastes  little  time  learning  the  system. 

Ideally,  transmission,  distribution,  and  secondary  voltage  levels  should 
be  represented  together.  This  would  allow  switching  at  equal  voltage  levels  on  the 
same  picture.  This  is  desirable  from  the  standpoint  of  sequential  switching  and 
evaluation  of  system  status.  For  identical  reasons,  the  substations  are  each 
represented  separately.  The  network  system  and,  loads  large  enough  to  deserve 
the  attention,  each  have  their  own  display,  too.  See  Chapter  Six  for  photographs 
of  each  display. 

Since  the  complete  design  was  original,  it  offered  excellent  opportunity 
to  avoid  man-machine  interface  problems.  By  considering  right-handed  users  and 
the  right  side  light  pen  connection,  the  data  displays  and  variable  controls  were 
oriented  for  ease  of  viewing.  The  different  text  types  for  titling  and  commands 
avoids  confusion.  The  symbols  used  for  circuit  breakers  and  switches  leave  no 
doubt  as  to  their  being  open  or  closed.  A special  attempt  was  made  to  place  data 
and  commands  to  leave  little  question  of  their  meanings. 

Every  attempt  was  made  to  make  the  commands  as  direct  as  possible  by 
avoiding  sub-commands  for  actions.  Instead  of  pointing  to  a voltage  regulator, 
then  to  a raise  or  lower  command  in  the  margin,  then  to  a surety  command,  this 
system  has  arrows  as  described  earlier.  After  pointing  to  the  arrow,  a safety 
command  is  included,  too.  The  sequence,  avoiding  sub-commands,  is  more  direct 
and  saves  time.  The  fewer  light  pen  hits  needed  to  perform  an  action;  the  quicker 
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the  action  is  performed.  While  this  method  of  presentation  is  more  wasteful  in 
presentation,  ease  of  use  and  time  saved  more  than  compensates. 

As  mentioned  above,  a safety  "switch"  is  included  to  avoid  accidental 
light  pen  hits.  The  switch  enables  the  operator  to  make  sure  the  command 
directed  was  the  intended  one.  A stop  in  the  main  control  program  causes  the 
words  "YOU  SURE?",  with  "YES"  and  "NO"  answers  beneath  the  question,  to 
appear  after  a hit  on  a circuit  action.  At  this  point  nothing  else  will  happen  on 
the  screen  until  the  question  is  answered  by  a hit  on  the  desired  answer.  Thus, 
mistakenly  dropping  generation  or  load  is  avoided. 

Design 

As  described,  the  display  on  the  screen  has  to  be  built  by  directing  the 
electron  beam  with  the  graphics  software  subroutines.  The  problem  here  is  to 
have  the  beam  at  the  correct  coordinate  position  for  the  line  or  figure  to  be 
drawn.  This  was  solved  by  drawing  the  desired  display  to  scale  on  graph  paper 
with  small  grid  markings.  The  coordinates  were  then  easily  picked  off  the 
drawing.  Another  by-product  of  the  scale  drawings  was  the  ability  to 
predetermine  the  layout  and  placement,  Changes  to  effect  better  display  could  be 
made  much  easier  on  the  drawing  than  after  programming  the  display  on  the 
computer. 

After  the  drawings  were  completed,  critiqued,  and  corrected, 
subroutines  to  draw  any  repetitive  figures  such  as  transformers,  generators,  and 
circuit  breakers  were  written.  Part  of  the  process  involved  further  scaling  of  the 
figures  to  determine  the  most  asthetic  presentation.  The  scaled  drawings  were 
very  necessary  for  placement  but  in  some  instances  the  scale  would  look  different 
on  the  screen.  To  avoid  such  scaling  modifications  the  figure  subroutines  were 

made  as  general  as  possible.  For  instance  an  argument  to  the  circle  subroutine  is 
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the  desired  radius  and  several  of  the  subroutines  have  arguments  for  light  pen 
sensitivity,  intensity,  and  flash. 
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Optimizing 

At  this  point,  the  programming  involved  writing,  in  order,  the  graphics 
subroutine  calls  to  duplicate  the  drawings  on  the  screen.  The  order  becomes 
important  for  optimal  memory  use.  The  task  itself  can  be  made  shorter  by  proper 
ordering  of  the  calls  to  avoid  moving  the  beam  needlessly  and  repeating  certain 
calls.  The  display  buffer  can  be  made  smaller  as  a result  of  proper  ordering. 
Several  ideas  and  facts  are  instrumental  in  optimizing. 

The  subpicture  concept  keeps  the  size  of  the  buffer  much  lower  by 
utilizing  the  same  area  of  the  buffer  many  times.  The  SURP(n,m)  routine  does  use 
several  words;  so,  there  is  a trade-off  when  copying  subpictures  of  few 
statements.  While  the  copying  of  subpictures  keeps  the  buffer  small,  the  beam 
still  has  to  trace  out  more  patterns;  so,  the  refresh  rate  is  still  longer.  For 
instance,  a buffer  size  of  900  words  with  many  subpicture  copies  may  cause  more 
flicker  than  one  of  1100  words  with  few  subpicture  copies. 

One  of  the  most  efficient  means  of  saving  buffer  and  decreasing  flicker 
is  to  limit  the  use  of  certain  calls.  Since  the  APNT  and  LVECT  routines  use  two 
words  of  buffer  to  point  and  draw  long  vectors,  a minimal  use  of  these  routines 
helps.  By  using  ROOT,  except  when  a APNT  is  needed  after  an  ON-OFF 
subpicture,  the  buffer  size  for  this  type  call  is  halved.  The  almost  total  use  of  the 
VECT  routine  causes  some  gaps  to  appear  at  the  end  of  long  lines  but  these  are 
not  distracting.  After  viewing  the  number  of  lines  on  a display,  it  is  easy  to  see  a 
sizable  buffer  savings  is  made  by  using  the  VECT  routine. 

Similarly,  the  TEXT  subroutine  displays  two  symbols  per  digital  word. 
A line  of  text  with  an  odd  number  of  characters  and  spaces  wastes  a half  word. 
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Shortening  the  text  by  one  character  will  free  a whole  word  in  this  situation. 
Also,  once  the  graphics  is  in  the  text  mode,  it  stays  there  for  successive 
characters  on  a line.  Rv  presenting  all  text  horizontally,  a savings  is  made.  As  an 
example,  if  "RING  BUS"  is  to  be  displayed,  write  both  words  on  the  same  line  and 
not  separate  lines.  Note  the  total  characters  and  spaces  is  eight,  an  even  number. 
Another  savings  concerning  text  is  made  by  displaying  all  italics  at  once.  This  is 
to  avoid  using  the  STAT(n)  call  many  times  if  the  order  of  display  is  careless. 

Another  way  to  save  buffer  words  is  to  group  like  calls  together  to 
avoid  a system,  change  mode  word.  This  is  particularly  applicable  to  the  line 
drawing  routines,  VECT  and  LVECT.  For  displays  with  many  lines  the  goal  is  to 
connect  as  many  end  points  as  possible.  Of  course,  the  first  consideration  of  this 
fact  is  in  the  initial  scaled  drawings.  An  additional  savings  is  realized  by  not 
having  to  move  the  beam  invisibly,  via  an  APNT  or  ROOT  call,  to  another  start 
point  prior  to  the  next  line.  So  as  many  as  three  words  may  be  saved  by  proper 
ordering  and  layout. 

To  demonstrate  the  effects  of  not  optimally  ordering,  the  network 
system  display  was  built  without  ordering.  All  the  horizontal  lines  were  displayed 
first  which  meant  a ROOT  call  between  each  VECT  cal1.  The  vertical  lines  were 
then  drawn.  This  display  has  one  of  the  largest  buffers  and  not  nearly  the  degree 
of  presentation  of  the  other  large  displays.  APNT  and  LVECT  calls  (two  words  in 
length)  were  used  originallly,  also,  but  had  to  be  replaced  with  RDOT  and  VECT 
calls  to  reduce  the  buffer  to  its  present  size. 

A savings  will  be  made  by  predetermining  what  the  most  likely  start  and 
stop  point  for  the  general  figures  will  be.  The  subroutine  can  start  and  stop  there 
on  the  screen  avoiding  the  need  for  an  invisible  beam  movement  prior  to  calling 
the  figure.  The  flow  of  ordering  through  a display  should  be  dictated  by  these 
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start  and  stop  points  for  the  copied  subpictures.  As  an  example,  if  all 
transformers  start  at  the  top  center  and  finish  at  the  bottom  center,  to  approach 
the  transformer  with  a line  from  the  bottom  would  require  an  additional  invisible 
beam  movement  to  top  center  to  continue  the  display.  Two  extra  calls  are 
required  to  draw  from  bottom  to  top,  rather  than  top  to  bottom.  The  direction  of 
the  flow  is  important,  too. 

One  consideration  while  organizing  the  displays  applies  to  optimizing 
the  main  control  program  later.  The  displays  are  saved  on  disk  to  be  called  as 
needed  by  the  main  program.  If  a display  isn't  complete  and  must  be  added  to  by 
the  main  program,  considerable  task  is  used  that  could  have  been  performed  by 
the  display  building  task.  Modifications  to  the  display  necessary  in  the  main 
program  are  affected  by  turning  on  and  off  subpictures  already  completed  by  the 
display  building  tasks.  The  example  here  is  the  "YOU  SURE?"  switch.  Each 
display  building  task  includes  this  subroutine  and  the  main  program  just  turns  it  on 
when  needed. 

Overall,  a conscious  effort  to  avoid  moving  the  beam  invisibly  by 
planning  ahead  for  layout  and  text  position  will  pay  off  in  a large  display. 
Ordering  is  important. 

Subpicture  Numbering 

As  was  mentioned  earlier,  each  subpicture  must  receive  a number  and  it 
must  be  different  from  all  other  subpicture  numbers  in  the  display  buffer.  To 
avoid  errors  it  is  important  to  keep  track  of  each  assigned  subpicture  number.  As 
an  aid,  each  separate  display  has  a different  hundreds  digit  prefixing  its  numbers. 
A list  for  each  display  is  found  in  the  appendix. 

Another  numbering  system  exists  for  all  subpictures  involved  with 
interaction.  This  was  required  because  some  circuit  breakers  appear  in  several 
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displays.  The  system  had  to  have  an  efficient  method  of  updating  that  circuit 
breaker  on  each  display.  At  the  same  time  the  circuitry  handling  the  change 
command  had  to  assign  a channel  number  to  each  circuit  action  it  performed.  To 
facilitate  the  handling  of  both  channels  and  subpicture  numbers,  they  were  made 
equal  and  are  numbered  from  one  to  one  hundred  See  SUBNUM.TXT  in  the 
appendix. 

The  analog  to  digital  converter  channels  were  each  assigned  a data 
collecting  point  on  the  simulator.  These  assignments  become  important  when 
displaying  the  data  on  the  screen  because  a subpicture  number  is  associated  with 
each  data  placement.  The  appendix  contains  these  listings. 

Saving  Displays 

The  last  step  in  completing  a display  is  to  save  the  display  buffer  on  a 
disk  file.  The  SAVE  routine  will  accomplish  this  task  to  a file  named  in  the 
argument.  When  needed  it  is  restored  to  the  main  program  buffer  via  a RSTR 
call.  All  these  files  are  designated  "XXXXXX.DPY"  in  this  system. 

Trouble  Shooting 

Once  the  program  is  written,  it  is  ready  to  be  typed  in  for  input.  The 
only  input  terminal  available  for  the  computer  is  teletype  to  disk  files.  This  step 
isn't  as  easy  as  it  sounds.  A thorough  knowledge  of  the  computer's  RSX-I1M 
Utilities  is  necessary.  A description  of  the  utilities  isn't  pertinent  to  this 
discussion  and  would  prove  quite  lengthy  if  included.  After  the  Fortran  source  file 
is  completed  and  edited,  the  source  is  compiled  and  the  task  or  link  step  is 
completed.  The  task  is  then  ran  to  check  the  results.  See  the  appendix. 

The  first  run  is  usually  quite  humorous.  Due  to  mistakes  in  coordinates 
and  typos  while  editing,  the  display  seldom  resembles  the  expected.  Since  much 
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of  the  display  is  relatively  plotted,  mistakes  magnify  themselves  throughout  the 
display.  This  makes  the  exact  location  of  the  error  difficult  to  discover.  A 
solution  to  this  problem  lies  in  completing  the  display  one-quarter  at  a time  and, 
before  running,  having  a fresh  copy  of  the  source  to  trace  through. 

This  difficulty  is  aided  by  the  small  compiler  and  lack  of  error  detection 
particularly  in  the  arguments  of  the  graphics  subroutines.  The  errors  probably 
won't  be  detected  until  the  "run"  stage.  Errors  listed  at  either  compile  or  task 
building  time  may  not  contain  sufficient  error  detail  to  explain  an  error.  Try  to 
build  the  task  anyway.  If  it  builds,  go  ahead  and  run  it  even  though  error  messages 
are  present.  The  actual  error  will  then  usually  be  more  apparent.  The  error 
detection  and  messages  aren't  easy  to  work  with.  An  appreciation  of  this  fact  will 
save  some  hair. 

Another  difficulty  when  dealing  with  errors  is  finding  the  codes.  The 
fortran  codes  are  in  the  fortran  book,  task  builder  errors  in  that  book,  and  general 
operator  errors  in  the  operator's  manual.  The  utilities  errors  are  under  the 
appropriate  chapter  in  the  utilities  manual. 

One  important  error  is  the  "FATAL  ERROR  T"  error  while  compiling. 
Its  code  is  found  somewhere  in  the  middle  of  the  fortran  book.  It  means  there 
isn't  enough  memory  for  compiling.  As  a solution,  break  the  program  in  half  and 
call  the  second  half  as  a subroutine  from  the  first.  This  is  but  one  example  of  the 
problems  encountered  when  trouble  shooting  errors. 

Conclusion 

The  building  of  the  simulator  displays  involves  more  than  just  putting 
lines  and  figures  on  the  screen.  Consideration  must  be  given  to  man-machine 
interface,  optimal  ordering  of  statements  and  drawings,  judicious  se  of  certain 
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calls,  and  efficient  numbering  of  subpictures.  The  finished  product  is  a simple, 
meaningful,  flicker  free  display. 

The  source  program  for  each  display  is  attached  in  the  appendix  with 

detailed  comment  cards  to  explain  the  beam  position  throughout. 
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CHAPTER  FIVE 

CONTROL  PROGRAM 

The  main  control  program  is  the  master  program  for  the  interface 
between  the  interactive  graphics  terminal  and  the  simulator.  It  coordinates 
commands  issued  from  the  graphics  terminal  with  simulator  commands.  It  keeps 
the  displays  updated  with  current  switch  positions  and  data.  This  program  must  be 
on-line  to  the  control  the  simulator. 

This  chapter  explains  the  main  program  in  a chronological  manner,  as 
the  CPU  would  see  the  program.  Each  of  the  eleven  displays  are  handled  basically 
the  same.  A diagram  in  Fig  5.1  illustrates  the  flow  for  the  display  handling 
sections.  The  variables  for  the  displays  are  the  subpicture  numbers  that  were 
optimally  ordered  to  minimize  these  variables.  The  optimal  ordering  also  allows 
the  standardized  handling  of  each  display  to  minimize  the  main  program. 

Initialization 

The  first  step  must  be  to  initiate  the  graphics  display  by  defining  the 
common  block  for  the  display  buffer  and  calling  INIT  to  initialize  the  buffer.  The 
buffer  is  initialized  each  time  a new  display  is  desired.  This  accomplishes  turning 
the  old  display  off,  too.  The  INIT  call  is  followed  by  the  RSTR  call  that  brings  the 
new  display  into  the  buffer  from  disk.  See  CONTROL. FTN  source  in  the  appendix. 
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Update 


.Since  each  display  is  stored  with  xed  initial  switch  and  circuit  breaker 
positions,  a display,  newly  loaded  into  the  buffer,  must  be  updated  with  the 
systems  latest  status.  This  applies  to  transmission  line  switches  and  circuit 
breakers  as  well  as  generation  control  switches.  (In  the  following  paragraphs  a 
"switch"  will  refer  to  a binary  operation  of  which  the  above  three  types  are  all 
included,  unless  otherwise  noted.)  This  subroutine  is  the  return  point  after  a 
switch  change  command;  it  accomplishes  the  display  change. 

A subroutine  called  UPDATE  accomplishes  the  update  by  passing 
arguments  that  are  optimally  ordered  to  enable  the  update  of  only  those  switches 
on  the  current  display.  The  optimality  achieved  results  in  a few  of  the  many 
switches  being  updated  at  once,  so  that  the  reaction  time  from  new  display  to 
updated  display  is  almost  instantaneous. 

The  subroutine  uses  an  array  of  length  100  to  store  the  information 
necessary  to  indicate  switch  positions.  A switch  is  a binary  operation,  so  the 
array  is  a Logical  array  where  each  element  is  one  byte  long  and  contains  only 
•TRUE,  or  .FALSE,  values.  This  saves  memory.  The  subroutine  checks  the  value 
of  the  array  elements  corresponding  to  subpicture  numbers  for  switches  in  the 
current  display.  (Switch  subpicture  numbers  are  identical  to  array  subscripts  to 
save  arithmetic  and  time.)  If  the  value  of  the  array  element  is  .FALSE.,  it  turns 
the  subpicture  on  that  exists  in  the  original  display  and  turns  its  companion 
subpicture  off.  The  array  is  initialized  all  .FALSE,  to  begin  so  that  all  circuit 
breakers  start  open  and  most  functional  switches,  closed.  It  is  the  switch's  initial 
position  subpicture  that  is  numbered  less  than  one  hundred  of  which  only  76  are 
now  in  use. 

The  companion  subpicture  is  the  opposite  switch  position  subpicture.  To 
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make  identification  simple,  they  are  numbered  the  same  as  the  original,  plus  one 
hundred.  So,  if  UPDATE  checks  an  array  element  and  discovers  it  is  .TRUE.,  it 
turns  off  subpicture  N and  on  subpicture  N+100.  If  the  N+100  subpicture  receives 
a light  pen  hit,  a check  must  be  made  to  see  if  the  subpicture  number  is  greater 
than  100  and  if  it  is,  subtract  100  so  the  update  and  change  will  occur  properly. 

One  subtlety  remains.  The  circuit  breakers  use  only  one  light  pen 
sensitive  main  subpicture  and  a non-sensitive  companion.  The  companion  is  just 
the  "X"  to  indicate  it  is  open.  Its  absence  indicates  closed.  This  means  only 
turning  on  or  off  one  subpicture  every  change  of  circuit  breaker  position.  All 
circuit  breakers  are  numbered  consecutively  so  different  sections  of  UPDATE 
handle  circuit  breakers  and  switches.  The  reason  for  this  was  to  avoid  duplication 
the  graphics  statements  required  to  draw  two  semi-identical  subpictures  in  the 
display  program.  The  result  is  a smaller  buffer  size  (less  flicker)  but  slightly 
lengthier  update  subroutine. 

The  Loop 

After  updating  the  new  display,  the  loop  for  monitoring  data  and 
waiting  for  light  pen  hits  is  entered.  The  first  step  is  to  insure  the  system's  event 
flag  for  a light  pen  hit  is  clear.  The  system  subroutine  CLREF  accomplishes  this. 
The  event  flag  isn't  cleared  automatically  after  each  light  pen  hit  so  it  must  be 
cleared  at  an  appropriate  time  by  the  subroutine.  The  clearing  at  the  beginning 
saves  clearing  at  each  different  end  of  the  loop.  Next  to  be  presented  is  the  data. 

The  simulator's  data  to  presented  on  the  display  must  be  obtained  from 
a channel  on  the  analog  to  digital  converters.  A subroutine  called  SINCON 
accomplishes  this.  Each  display's  data  channels  are  a consequtive  sequence.  The 
end  points  of  the  sequence  provide  the  arguments  for  a DO  loop  to  check  the 
channel  value  and  then  put  it  on  the  screen.  The  necessary  alphanumberic  fields 
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were  given  position  on  the  displays  in  the  display  building  programs.  Now,  only 
their  subpicture  number  is  referenced  by  the  NMPR  routine.  The  subpicture 
numbers  are  also  consecutively  numbered  and  equal  to  the  channel  number  plus  a 
constant.  This  enables  the  same  OO  loop  to  be  used  for  all  main  displays. 

To  detect  a light  pen  hit,  the  LPEN  subroutine  must  be  called.  If  no 
light  pen  hit  occurs  when  LPEN  is  called,  the  event  flag  stays  set  to  zero.  At  this 
point,  a check  for  the  status  of  the  event  flag  determines  whether  to  continue 
with  the  light  pen  command  or  go  back  to  the  top  of  the  loop.  It  is  easy  to  see 
that  data  changes  and  light  pen  hits  may  not  be  instantaneous,  depending  on  which 
part  of  the  loop  the  CPU  is  handling  at  the  time. 

If  there  has  been  a light  pen  hit  during  the  call  to  LPEN,  the  loop  is 
extended,  the  "YOU  SURE?"  subpicture  with  answers  is  turned  on,  the  light  pen 
event  flag  cleared,  and  another  sub-loop  is  entered  to  wait  for  the  answer  of  the 
question.  The  sub-loop  is  on  a LPEN  call  and  if  the  answer  is  NO,  the  control 
returns  to  the  top  of  the  loop. 

If  YES,  the  loop  is  extended  and  the  "YOU  SURE?"  subpicture  is  turned 
off.  At  this  point  the  subpicture  number,  N,  where  the  original  hit  occurred,  is 
tested  for  its  value.  If  less  than  200,  the  command  is  for  switch  change.  The  next 
few  statements  determine  whether  the  N is  greater  than  100,  and  if  it  is,  100  is 
subtracted  from  it.  The  array  element  corresponding  to  N,  SW(N),  is  checked  for 
.TRUE,  or  .FALSE,  and  the  array  element  is  changed  to  the  opposite  value.  The 
return  of  this  section  of  the  loop  is  to  the  UPDATE  call  where  the  display  is 
changed.  This  completes  the  loop  for  a switch  change  hit  and  the  cycle  is 
repeated. 

If  the  value  < N is  greater  than  0,  some  change  to  the  display  or  a 
change  of  display  itself  has  been  directed.  The  loop  is  then  exited  for  a section 
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dealing  with  peculiarities  for  the  current  display. 


The  group  of  statements  forming  the  loop  is  cjp  .ned  in  a subroutine 
called  CHECK.  The  arguments  of  CHECK  are  the  end  points  of  two  sets  of 
subpicture  number  sequences  for  use  in  two  UPDATE  calls.  Another  pair  of  end 
points  describe  sequences  for  data  channels.  The  last  argument  is  passed  back  to 
the  main  program  and  is  the  subpicture  number  where  a light  pen  hit  occurred. 

The  CHECK  subroutine  is  used  for  all  displays  execpt  the  introduction 
and  high  voltage  transmission  displays.  The  introduction  control  loop  is  more 
simple  so  it  doesn't  need  the  detail  of  CHECK.  The  high  voltage  transmission 
display  has  the  date  and  time  displayed  which  causes  its  loop  to  be  different.  The 
loops  for  these  displays  function  the  same  a$  CHECK,  however. 

Display  Peculiarities 

The  section  dealing  with  peculiarities  of  a display  currently  contains 
statements  to  discern  which  display  is  desired  next.  Every  display  has  a different 
list  of  displays  available  from  that  display.  The  switch  is  text  on  the  screen  in 
standard  capitals  that  has  a subpicture  number  greater  than  200  and  is  light  pen 
sensitive.  Any  text  not  a switch  is  in  italics.  A light  pen  hit  on  the  text  causes 
the  loop  to  be  exited  and  the  subpicture  number  to  be  passed  to  this  section. 

Each  display's  subpicture  numbers  are  prefixed  with  a different 
hundreds  digit.  The  exception  is  the  circuit  breakers  and  functional  switches. 
One  of  the  reasons  for  this  is  to  be  able  to  easily  change  pictures  or  perform  some 
action  peculiar  to  a single  display.  If  the  subpicture  numbers  for  a display  are 
consecutively  numbered  from  some  hundred  plus  one,  and  the  hundred  is 
subtracted,  the  new  subpicture  numbers  are  consecutive  from  one.  This  is  done  to 
provide  the  variable  for  a computed  GO  TO  statement. 

The  arguments  of  the  computed  GO  TO  statement  have  special 
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significance.  The  1NIT  statement  that  begins  each  display’s  section  in  the  main 
program  has  the  statement  number  identical  to  the  display's  subpicture  number, 
hundreds  digit.  For  example,  the  current  display  has  a switch  .SUBSTATION-4 
with  subpicture  number  1105  and  the  substation-4  display's  hundreds  digit  is  3.  A 
hit  on  SUBSTATION-4  would  cause  1105  to  be  passed  out  of  the  loop.  In  the  next 
step,  variable  NB  would  be  calculated  as  equal  to  1105-1  100-5.  Ihus,  the  fifth 
argument  in  the  computed  GO  TO  statement  would  be  300  and  the  next  step 
executed  would  be  statement  300,  the  substation-4  display  initiator.  It  is  in  this 
manner  that  all  display  changes  are  made. 

Conclusion 

The  complete  cycle  of  control  in  the  main  program  has  been  discussed. 
From  display  initiation,  to  changes  on  that  display,  to  new  displays,  the  main 
program  uses  optimal  ordering  of  subpicture  numbers  to  efficiently  change  the 
displays.  The  loop  provides  the  opportunity  for  data  update  and  reception  of  light 
pen  commands,  continuously.  The  last  accomplished  function  is  to  turn  off  the 
program.  The  program  is  exited  by  a light  pen  hit  on  the  word  EXIT  found  on  the 
introduction  display. 
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CHAPTER  SIX 


PRESENTATION  Of  RESEARCH  PRODUCT 


Photographs  of  the  one-line  diagram  displays,  as  they  appear  on  the 
graphics  screen,  are  presented  in  this  chapter  to  illustrate  the  results  ol  the 
programs.  The  control  of  the  diagrams  is  dynamic  and  impossible  to  demonstrate 
in  this  medium.  The  results  of  the  control  program  may  be  followed  on  the 
photographs,  as  the  system  was  set  up  to  provide  power  to  both  substations  from 
generator  one  and  two  and  the  interconnection  when  the  photos  were  taken.  Some 
of  the  finer  details  of  each  display  is  included  for  better  understanding  of  the 


displays. 


There  are  eleven  displays.  Two  of  the  displays  contain  information  that 


may  be  obscured  by  varying  the  intensity  control;  so  these  have  two  photograpns 
to  show  both  intensity  levels. 


I 

1 


Introduction  Display 

The  introduction  display  (Fig.  6.1)  contains  a paragraph  of  text  to 
explain  the  system  operation.  In  an  educational  situation,  similar  displays  may  be 
developed  to  contain  instructions  for  experiments.  To  the  right  of  the  display  is  a 
list  or  menu  of  available  displays  and  the  exit  switch.  Each  word  of  the  menu  is 
light  pen  sensitive  and  is  referred  to  as  a "switch."  This  display  is  presented 
initially,  automatically,  when  the  control  program  is  initiated.  This  display  is 
selected  by  the  "MENU"  switch  in  the  other  displays.  Pages  102  through  10*#  in 
the  appendix  contains  listings  of  the  files  necessary  to  create  this  display. 

High  Voltage  Transmission  Display 

This  display  (Fig.  6.2)  contains  all  the  high  voltage  lines  and  buses.  It  is 
a general  layout  of  the  entire  system.  It  would  be  referenced  to  get  the  overall 
view  of  generation  and  supply  for  the  system.  Larger  scale  displays  of  the 
components  are  obtained  by  selecting  the  display's,  word  switch  with  the  light  pen. 
Due  to  its  size,  no  data  is  presented  on  this  display.  Defining  routing  is  its 
primary  function.  Pages  52  through  59  of  the  appendix  contains  the  file  listings 
for  this  display. 
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Fig.  6.1.  The  Introduction  Display  wit'  Display  Menu 


34 


Substation-4  DispJay 


This  display  (Fig.  6.3)  gives  a layout  of  the  substation  and  its  connected 
load.  The  dot-dashed  lines  indicate  breaks  between  this  and  other  displays.  So  the 
display  picks  up  with  the  high  side  of  the  transformer.  In  the  photograph  the 
network  system  and  the  residential  loads  are  being  fed  from  this  station.  The 
appendix  contains  the  files  for  this  display  beginning  on  page  60. 

Industrial  Load  Display 

The  display  (Fig.  6.4)  gives  the  large  scale  layout  of  the  connected 
industrial  load.  The  layout  starts  at  the  substation-4  bus  for  continuity  of 
presentation.  The  arrows  and  data  near  the  regulator  are  for  control  of  the 
regulator  from  the  console  and  monitoring  of  the  load.  The  switches  on  the 
individual  loads  are  not  just  manual  switches,  so  that  the  load  may  be  shed  from 
the  terminal.  This  is  not  the  case  for  the  capacitive  load,  however.  The  appendix 
contains  the  files  for  this  display  beginning  with  page  80. 

Substation-6  Display 

Fig.  6.5  and  6.6  show  the  display  with  intensity  down  and  up, 
respectively.  Note  the  manual  switch,  when  closed,  will  give  warning  of  itself  on 
the  low  intensity  display  by  being  brighter  than  when  it's  open.  This  substation  is 
feeding  both  loads  in  the  configuration  in  the  photo.  The  numbers  on  the  incoming 
lines  are  their  identification.  The  appendix  contains  the  files  for  this  display  on 
pages  65  through  69. 
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Fig.  6.3.  The  Substation-4  Display. 
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Fig.  6.5.  Graphics  Controlled  Substation-6  Display. 
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Network  System  Display 

, The  network  system  (Fig.  6.7)  is  different  from  the  other  displays 

i because  it  is  fed  from  two  different  substations.  Roth  buses  and  their  voltages  are 

included  for  continuity  of  presentation.  Each  phase's  voltage  and  current  is 
displayed  for  the  secondarybeing  fed  from  both  substations  on  one  feeder  each. 
The  appendix  contains  information  on  this  display  beginning  on  page  75. 

Load  Center  Display 

This  display  (Fig.  6.8)  depicts  a secondary  selective  system.  Again  the 
substation-6  bus  and  bus  voltage  is  included  for  clearity.  Note  that  the 
configuration  indicated  in  the  photo  would  result  in  no  power  supplied  to  any  load 
unless  the  right  feeder  breaker  is  closed.  The  position  of  the  breakers  in  this 
system  wouid  allow  selective  load  management  at  the  secondary  level.  Data  is 
presented  to  enable  monitoring  of  load.  The  appendix  contains  the  files  for  this 
display  on  pages  70  through  7k. 

Station  1 1 Display 

These  photographs  (Figs.  6.9,  and  6.10)  are  large  scale  depictions  of  the 
controlable  and  manual  features  of  this  switching  station.  The  display 
incorporates  the  features  of  the  displays  discussed  earlier,  particularly  the 
substation-4  display.  The  peak  load  generator  is  presently  a dummy  generator  but 
was  included  for  future  use.  Pages  85  through  89  of  the  appendix  contain  the 
- files  for  this  display. 

jj 
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Fig.  6.9.  Graphics  Controlled  Station  1 1. 


Fig.  6.10.  Manual  and  Controlled  Station  1 1.  Intensity  up. 
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Station  1 and  Generator  1 Displays 


These  two  displays  (Figs.  6.11,  and  6.12)  contain  large  scale  depictions 
of  the  generation  control  stations.  The  control  switches  in  each  case  are 
identical.  The  prime  mover  is  the  switch  for  the  DC  motor  and  is  activated  by  a 
hit  on  the  word  "ON"  or  "OFF"  , at  which  time  the  opposite  position  will  be 
displayed.  The  word  displayed  indicates  its  current  condition.  The  excitation 
switch  operates  the  same.  The  arrows  for  voltage  control  raises  or  lowers  the 
excitation  and  the  arrows  for  frequency  varies  the  power  input  to  the  DC  motor  or 
prime  mover,  simulating  increasing  the  steam  to  a steam  turbine.  The  generator- 
1 depiction  also  includes  all  the  data  for  the  other  suppliers  making  generator  one 
an  ideal  swing  bus  generator.  The  indications  on  the  data  presentations  are  all 
identical  because  the  A-D  channels  are  all  tied  to  a power  supply  until  the 
hardware  to  the  simulator  is  finished.  The  appendix  on  pages  90  through  94  and 
105  through  110  contains  the  files  for  this  display.  Fig.  6.14.  shows  a user 
closing  the  circuit  breaker  to  the  Station  Service  load  on  the  Station  1 display. 

Synchronizing  Display 

This  display  (Fig  6.13)  contains  the  controls  for  all  the  suppliers  and  a 
route  for  synchronizing  the  generators  at  any  of  several  points.  Space  has  been 
allowed  below  the  word  synchronizing  for  the  inclusion  of  a remote  controlled 
synchronizing  display.  One  method  of  accomplishing  a syncroscope  function  would 
be  to  use  the  three  lights  system  and  simulate  the  lights  with  small  circles  on  the 
screen.  Another  method  would  actually  display  the  moving  voltage  vectors, 
superimposed.  Later  a switch  for  automatic  synchronizing  could  be  added,  too. 
Files  for  this  display  are  in  the  appendix,  pages  95  through  101. 
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Fig.  6.12.  Generator  1 Display. 
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Fig.  6.13.  Synchronizing  Display. 


Fig.  6.14.  Adding  Load  to  Station  1.  Display  Control  in  Use. 
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CHAPTER  SEVEN 

CONCLUSIONS 

The  collection  of  displays  described  in  this  thesis  make  possible  a 
powerful  and  unique  research  and  educational  facility. 

The  combination  of  the  PDPI1T34  and  Power  System  Simulator  into  a 
computer  controlled  power  system  provides  a very  unique  research  tool  for 
control  of  power  systems.  The  possibilities  and  capabilities  of  the  computer  to 
control  a complete  power  system  are  just  beginning  to  be  explored.  While  an 
actual  power  system  does  not  allow  experimental  research  because  of  cost  and 
possible  service  loss  if  failure  occurs,  the  system  developed  here  does. 

The  ability  of  the  computer  to  completely  control  a power  system  has 
yet  to  be  completely  explored.  With  this  system  it  would  be  possible  to  write 
software  to  start  from  zero  power  production,  bring  generators  up,  synchronize 
them,  add  load,  close  breakers,  provide  the  relaying  and  circuit  breaking  signals, 
open  lines,  issue  manual  operation  commands,  and  shut  down  the  system.  The 
coordinated  use  of  real  time  stability  and  load  flow  calculations,  coupled  with  real 
time,  short-run  load  forecasts  would  enable  the  computer  to  supply  the 
operational  necessities  of  a system  automatically.  Of  course,  the  computer  has  to 
be  programmed  by  very  knowledgeable  engineers  so  that  the  decisions  made  by  the 
computer  are  sound  ones.  The  computer  really  only  provides  the  capability  of  not 
forgetting  past  mistakes  and  storing  all  of  present  knowledge  if  properly 
programmed.  The  ability  to  provide  an  operator  with  that  capabilitv  should  not  be 
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overlooked. 


Thus,  the  foundation  for  further  research  has  been  laid  in  the  form  of  a 
computer  controlled  simulator.  Its  ultimate  worth  belongs  to  the  future  and  the 
foresight  of  those  who  use  it. 

The  educational  value  of  the  computer  controlled  simulator  is 
unquestionable.  It  is  state  of  the  art  or  better  for  many  power  companys.  The 
system  provides  the  power  systems  engineer  with  a current  system  with  which  to 
learn  the  operation  of  the  power  system.  The  student  will  be  "at  home"  with  any 
company  after  completion  of  his  education. 

The  opportunities  for  the  digital  or  circuit  design  engineering  student  to 
apply  his  knowledge  to  the  hardware  interface  has  been  great  and  will  continue  as 
more  and  more  research  is  advanced.  While  the  power  systems  student  learns  with 
"hands  on"  the  equipment,  all  students  learn  about  digital  control  systems. 

After  some  consideration  of  the  capabilities  of  the  graphics  terminal 
and  the  computer,  it  has  come  to  mind  that  on  even  more  powerful  tool  may  exist 
here  than  this  paper  describes.  By  using  the  computer  or  groups  of  micro- 
compters to  run  real  time  simulations  of  a real  power  system  and  combining  the 
outputs  of  these  simulations  to  the  graphics  terminal,  a real  power  system  could 
be  simulated  and  controlled  from  the  graphics  terminal.  This  would  void  the  need 
of  the  power  system  simulator  itself  and  the  resulting  interface.  It  would  allow 
the  student  to  control  a simulated,  real  power  system. 

It  could  be  used  effectively  for  research  on  new  software  to  perform 
the  control  functions  for  the  power  system.  Additionally  the  system  planning 
divisions  at  power  utilities  level  would  be  able  to  study  contingencies  presently 
impossible  to  preview.  The  human  element  could  be  included  since  the  operator 
would  be  ultimately  controlling  during  contingencies,  especially  if  the  system  was 


45 


i 


not  fully  automated.  The  contribution  to  controller  training  would  be  invaluable. 

The  7ecent  advances  in  computers  and  computer  graphics  would  enable 
the  design  of  such  a system  to  become  a reality.  The  possibilities  for  such  a 
system  simulator  would  be  great.  Hopefully,  the  start  as  outlined  in  this  thesis 
will  not  be  the  finish. 


•• 
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APPENDIX 

The  appendix  is  the  users  manual  for  the  software  comprising  the  digital 
control  system.  The  complete  users  manual  exists  as  files  on  magnetic  disk  and 
thus  should  be  updated  as  progress  and  improvements  are  made.  The 
documentation  is  contained  in  TXT  files,  source  in  FTN  files,  and  task  builder 
commands  in  CMD  files. 

Each  program,  eleven  graphics  display  and  one  control,  has  a text  file 
(e.g.,  HVTRNS.T  XT)  where  information  necessary  to  use  that  program  is 
contained.  These  files  preceed  each  applicable  program  section  in  this  manual. 
Two  additional  text  files  document  common  subpicture  numbers  (SUBNUM.TXT) 
and  list  A-D  channel  assignments  (ADCHNL.TXT)  and  are  listed  at  the  end. 

Following  each  text  file  are  the  Fortran  source  file(s)  (e.g., 
HVTRNS.FTN)  necessary  for  that  program.  The  file  containing  the  subroutines  for 
the  display  sources,  DSP5UB.FTN,  is  listed  after  the  last  dispay  source  program. 
Likewise,  the  subroutine  file,  CNTLSB.FTN,  for  the  control  program  follows  the 
control  source  listing.  The  command  files  are  listed  in  each  program  section,  too. 

A list  of  the  existing  file  directories  immediately  follows  this 
introduction.  Note  objective  (.OBJ)  and  task  (.TSK)  files  have  been  deleted  where 
no  longer  needed.  The  minimal  number  of  disk  blocks  needed  is  400.  More  will  be 
needed  when  the  tasks  are  built.  An  explanation  of  the  file  name  prefix 
accompanies  each  section.  The  order  of  sections  in  the  list  is  the  same  as  the 
order  of  the  listings  in  the  remainder  of  the  appendix. 
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The  High  Voltage  Transmission  Files. 

PIP  HVTRNS HVRE5 T . * t*/L I 


niRrnoKY  pm  :r 200.2001 

22-N0V-77  15  MO 

HVTRNS . TSK ! 1 80. 

HVTRNS . PF'Y  » 14  5. 

HVTRNS . TXT  f 7 5. 

I-IVTRNS.  FTN  14  14. 

HVTRNS. CMOS  2 1. 

HVTRNS. DPY» 13  5. 

HVREST . FTN  5 2 8. 


10-0CT-77  16509 
19-0CT-77  21109 
22 -NOV-77  IS: 13 
1 9-00T-77  21*21 
22-N0V-77  10*.  41 
30-AUR-77  09!  44 
1 9 -OCT-77  21521 


TOTAL  OF  118.  BLOCKS  IN  7.  FILES 


The  Substation Files. 


PIP" SUBST4.*;*/LI 


DIRECTORY  DK1 5 C 200 .2003 
22-N0V-77  15536 

SIJBST4.CMD  12  1. 

SIIBST4.TXT!  3 4. 

8UBST4.FTNJ1  11. 

SUBST4 . DRY  *11  3. 


22- NOV -77  10  5 49 
22 -NOV-77  12509 
30-AUG-77  095  44 
30  - AUC! -77  09  5 50 


TOTAL.  OF  19.  BLOCKS  IN  4.  FILES 


The  Substation-6  Files. 

PIP>SUBST6.*,**/LI 


DIRECTORY  DK 1 5 T200.2003 
22 -NOV -77  15  5 36 

SUB5T6.CMD 11  1. 

SUBST 6 .FTN! 1 13. 

SUBST6.TXT 16  4. 

SUBST6.DPYJ 14  3. 


22  -NOV-77  10  550 
23-AUG-77  00540 

22- N0V-77  .12  5 40 

23- AUG-77  16504 


TOTAL  OF  21.  BLOCKS  IN  4.  FILES 


The  Load  Center  Files. 


PIP:  LDCTR.#!*/LI 


DIRECTORY  DK1  5 L'200.2003 
22-N0V-77  15537 


LPCTR.FTN! 1 
LDCTR.TXT 15 
ldctr.dpy; i l 

LPCTR.CMD 12 


25- AUG-77  12527 
22-N0V-77  12541 
25-AUG-77  12534 
22-N0V-77  10552 


TOTAL  OF  19.  BLOCKS  IN  4.  FILES 


- 1 r *t«:  nr 


The  Network  System  Files. 

pip>netsys.*!*/li 


DIRECTORY  DK 1 : 1 200 , 2003 
22 -NOV -77  15  5 37 


NETSYS . DPY  5 5 3. 

NETSYS.CMD! 1 1. 

NETSYS . FTN ! 1 12. 

NETSYS . TXT f 5 4. 


TOTAL  OF  20.  BLOCKS 


25-AUG-77 
22-NOV -77 
25-AUG-77 
22-NOV -77 

IN  A.  FILES 


135  11 
10553 
1 3502 
12542 


The  Industrial  Load  Files. 

PIP>INDLD.*»*/LI 


DIRECTORY  DK1 5 C 200 » 2003 
22- NOV -77  15537 


INDLD . CMD! 1 

1 . 

22-NOV -77 

10556 

INDLD. FTN! 1 

11  . 

25-AUG-77 

165  16 

INDLD. DPY ! 12 

3. 

25-AIJG-77 

16522 

INDLD. TXT!  5 

4. 

22-N0V-77 

12542 

TOTAL  OF  19.  BLOCKS  IN  4.  FILES 

The  Station  1 1 Files. 

F'IP>STAT  1 1 ,*!*/LI 


DIRECTORY  OKI :r200,200I 
22-NOV -77  15538 

STATU  . TXT  f 4 
ST  ATI  1 .DPY; 10 
STAT1 1 . CMD > 1 
ST  AT  1 1 .FTN51 

TOTAL  OF  21.  BLOCKS  IN  4.  FILES 

The  Generator  1 Files. 

PIP: GEN1 .*»*/LI 


4.  22 -NOV-77  12537 
4.  25-AUG-77  13539 
1.  22-N0V-77  10558 
12.  25-AUG-77  16522 


DIRECTORY  DK15C2 
22-N0V-77  15538 


GEN1  . TXT  5 3 
(3EN1  . DPY  511 
GFN1 . FTNf 1 
GEN1 . CMD  f 1 

TOTAL  OF 


f 2003 


4. 

4. 

10. 

1. 

19.  BLOCKS  IN 


22-N0V-77  12546 
25-AUG-77  14520 
25-AIIG-77  14512 
22-N0V-77  11503 

4.  FILES 
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The  Synchronizing  Files. 

PIF'  SYNCRN  . * 5 * . SYRFST . * 5 */L  I 


DIRECTORY  UK l : C 200,2001 
22-NOU  -77  15:39 


syncrn.cmd; i 

1 . 

22-N0U-77 

1 1 !04 

SYNCRN. DRY 5 3 

5 . 

25-AIJG-77 

15106 

SYNCRN. FTN 51 

10. 

22-AI IG-77 

20107 

SYNCRN. TXT  5 3 

6. 

22-N0V-77 

12149 

SYREST.FTN51 

6. 

25-AUG-77 

14159 

TOTAL  OF  28.  BLOCKS  IN  5.  Ell  ES 

The  Introduction  Files. 

PIP  INTRO . * 5 #/L I 


DIRECTORY  OKI : C200 , 2001 
22-N0V-77  15! 40 


INTRO . CMD  5 1 

1 . 

22-N0V-77 

11  :os 

INTRO. FTN5 I 

5 » 

22-AI  IG-77 

08125 

INTRO. DRY .6 

3. 

22-AI  10-77 

20135 

INTRO. TXT  5 3 

3. 

22-N0V-77 

12:53 

TOTAL  OF  12 

. BLOCKS 

IN  4.  Fll  FS 

The  Station  1 Files. 

PIP>STAT 1 . *5*,ST1FIN.*S*/LI 

DIRECTORY  DK11C200, 
22-NOU  -77  15J41 

200] 

STAT 1 . TXT  5 4 

5. 

22-N0U-77 

12146 

ST  ATI . CMD  5 1 

1 . 

22-NOV-77 

11:00 

STAT 1 . FTN  5 1 

12. 

25-AUG-77 

16133 

STATl.DPY5.il 

4. 

29-AIJG-77 

14142 

ST1FIN.FTN5 1 

3. 

25-AUG-77 

1 3 1 55 

TOTAL  OF  25.  BLOCKS  TN  5.  FILES 


The  Display  Subroutine  Files. 

PIP>nSPSUB.*»#/L I 


DIRECTORY  DK 1 : T 200 1 200  1 
22- NOU - 77  15! 41 


DSPSI1B.FTN5 1 12. 

DSPSUB.0BJ5 1 31. 


06 -AUG-77  19147 
10-0CT-77  15158 


TOTAL  OF  43.  BLOCKS  IN  2.  FILES 


50 


The  Control  Program  Files. 

PI P>CONTROL . * S * » CNTLSR . * i */L I 


DIRECTORY  BK11C200 
22-N0V-77  15  M3 

1 2003 

CONTROL. FTNJ1 

11. 

1 0 -OCT-77 

15141 

CONTROL. TSK 51 

66. 

C .i  9-0CT-77 

21  129 

CONTROL . CMD  f 1 

1 . 

22-N0V-77 

11111 

CONTROL. TXT 12 

3. 

22 -NOV- 77 

t .1  ‘.33 

CONTROL . FTN  > 4 

11  . 

22-N0U-77 

15118 

CNT1  SB. FTN 12 

5. 

22-N00-77 

13104 

CNTL.SB . OBJ  * 1 

8. 

1 0-0CT-77 

15150 

TOTAL  OP  105.  BLOCKS  IN  7.  FILES 
The  text  files  for  A-D  channels  and  Subpicture  Numbers. 
PIP  : ATiCHNL . TXT  f * , SUBNUM . TXT  i */LI 


DIRECTORY  BKi  1 I.'?00 . 2001 
22-N0V-77  15  M4 

APCHNL.TXT 5 3 5.  18-N0U-77  15151 

SUBNUM. TXTJ2  A.  21-N0V-77  08123 

TOTAL  OP  11.  BLOCKS  IN  2.  FILES 
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THE  ‘HVTRNS. FTN*  AND  ’ HVREST . FIN  * ETLES  CONTAIN  THE  FORTRAN 
SOURCE  FOR  THE  HU  TRANSMISSION  DISPLAY.  THEY  USE  SUBROUTINES 
CONTAINED  IN  A FILE*  * DSPSUB . FTN * . EDIT  THE  FILES  USING  THE  EDIT 
UTILITY. 

TO  COMPILE  WITHOUT  A SOURCE  LISTING,  TYPE: 

>FOR  HVTRNS=HVTRNS 
THEN  >FOR  H VRE  S T=H VREST 

THEN  >FOR  DSPSUB- DSPSUB 

TO  COMPILE  WITH  A NUMBERED  SOURCE  LISTING,  TYPES 

FOR  HVTRNS=HVTRNS/L I ! 1 
THEN  >FOR  HVREST=HVREST/LI SI 

THEN  >FOR  DSPSUH=DSPSUB/Li:l 

TO  TASK  BUILD  USING  THE  INDIRECT  COMMAND  FILE,  TYPES 

>TKB  0HVTRNS 

THIS  CAUSES  FILES,  • HVTRNS . OB J * , ■ HVREST . OB. I ' , AND  * DSPSUB . OBJ ' , 
TO  BE  CREATFH  BY  THE  ’FOR"  COMMAND  AND  A FILE,  * HVTRNS. TSK" , TO  BE 

CREATED  BY  THE  * TKB * COMMAND.  THE  SYMBOL  INDICATES  THE  USE  OF 

AN  INDIRECT  COMMAND  FILE.  THIS  IS  FILE » * HVTRNS.CMD" , AND  CONTAINS 
THE  TASK  BUILDER  COMMANDS  NECESSARY  TO  BUILD  THIS  TASK. 

TURN  ON  THE  VT-11  AND  BUILD  THE  DISPLAY  TO  BE  SAVED  BY  TYPINGS 

■RUN  HVTRNS 

IF  TI-IF  ABOVE  SEQUENCE  IS  FOLLOWED,  A NEW  FILE  IS  CREATED  CALLED 
' HVTRNS . DPY  * THAT  CONTAINS  THE  SAVED  DISPLAY. 

THE  FOLLOWING  IS  A LIST  OF  THE  SUBPICTURE  NUMBERS  FOR  THE 
HV  TRANSMISSION  DISPLAY.  THE  FIRST  SFT  CONTAINS  THE  SUBPICTURE  NUMBERS 
THAT  WILL  BE  LIGHT  PEN  SENSITIVE.  THE  ORDER  DETERMINES  THE  ORDER 
OF  THE  COMPUTED  GO  TO  STATEMENT'S  ARGUMENTS  IN  THE  MAIN  PROGRAM. 

THE  REMAINDER  ARE  NOT  SENSITIVE  AND  ARE  FOR  COPYING  PURPOSES  ONLY. 

SUBPICTURE  NUMBER  DESCRIPTION 

GEN  t TEXT  FOR  SW 
STAT  1 TEXT  FOR  SW 
MENU  TEXT  FOR  SW 
SUB  ST  4 TEXT  FOR  SW 
SUB  ST  6 TEXT  FOR  SW 
ST  11  TEXT  FOR  SW 


201 

202 

203 

204 

205 

206 


239 

TIME 

240 

TIME 

250 

GEN  1 CIRCLE 

251 

40  UNIT  BUS  0 GEN  1 

252 

GEN  2 CIRCLE 

253 

RING  BUS  180  LONG 

254 

GEN  3 CIRCLE 

255 

VERTICAL  BUS  FOR  RING  BUS 

256 

SUB  ST  4 BOX 

257 

SUB  ST  A BOX 

261 

THRU 

270 

RING  BUS  SEGMENTS 

271 

ST  11  BUS 

276 

•GEN*  1 TEXT 

277 

•GEN*  2 TEXT 

278 

•GEN*  3 TEXT 
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PROGRAM  TO  DRAW  THE  HIGH  VOLTAGE  TRANSMISSION  LINE  PICTURE. 

COMMON/DEILE/IBUF < 1 100) 

DIMENSION  TIM(4> 

CALL  INIT(llOO) 


CALL 

RDOKO. ,50. »-l »-l ) 

! 0,50 

START  SUBPICTURE  OF  THE  GENERATORS. 

CALL 

SUBP ( 250 ) 

'SUBP!  GFN  , TRANS 

DRAW 

A CIRCLE  OF  RADIUS  20  FOR  GENERATOR 

ONE  . 

CALL 

CIRCLE  < 20 . »-l ,4,-1) 

CALL 

RDOT  < 20 • ,20. ,0,4) 

! 20,70 

CALL 

VECKO.  ,130.  ) 

! 20,200 

CALL 

ESUB 

! END  OF  GFN  SUBP 

DRAW 

THF  TWO  CIRCUIT  BREAKERS  FOR  GFNERATOR  ONE. 

ONE  1 

BREAKER  IS  OPEN  AND  ONE  CLOSED. 

CALL 

RDOT (-10 . ,0. ,0,-4) 

i F'B  FOR  CB 

CALL 

SUBP  < A ) 

i SUBP : CL  CB  GEN  1 

CALL 

CBCLD ( 4 ) 

CALL 

ESUB 

CALL 

SUBP< IOA) 

ISUBP!  OP  CB  GEN  1 

CALL 

CBOF'N  < 4 ) 

CALL 

ESUB 

CALL 

APNT ( 20 . ,220. ,-1,-4) 

DRAW 

TRANSMISSION  LINE  Cl-3  AND  BUS  FOR 

GENERATOR  1. 

CALL 

VECKO.  ,79.  ) 

! 20,299 

CALL 

RDOT (-20. , 1 . , ,-4) 

CALL 

SUBP (251 ) 

ISUBP!  BUS  FOR  GEN 

1 

CALL 

HBUS  < 40 . ,5) 

CALL 

ESUB 

CALL 

RDOT (-20. , 1 . ,-1,-4) 

' 20,301 

CALL 

VECT  < 0 . ,418. ) 

• 20,719 

DRAW 

RING  BUS  WITH  CD'S  STARTING  AT  THE 

LOWER  RIGHT  CORNER 

• 

CAU- 

RDOT( -1 . ,0. ,-l , -4) 

SAL  L 

SUBP (255) 

ISUBP!  VBUS  MASTER 

CALL 

VBI.IS (164.  ,5) 

! 19,882 

CALL 

ESUB 

CALL 

RDOT ( 1 . ,-l . , ,-4) 

CALL 

SUBP (261 ,251 ) 

ISUBP!  UP  LFT  RNG 

BUS 

EAI  l. 

RDOT ( 0 . , - 1 0 . , ,-4) 

< 60,870 

CALI 

SUBP (1,6) 

ISUBP!  CL SO  CB  RNG 

BUS 

CALL 

SUBP ( 101,106) 

ISUBP!  OPEN  CB  RNG 

BUS 

CAI  L 

APNT (80. ,880. ,-1,-4) 

CALl 

SUBP (262, 251 ) 

'SUBP!  UP  MID  RNG 

BUS 

CALL 

SUBP (263, 251 ) 

'SUBP!  UP  MID  RNG 

BUS 

CALL 

RDOT ( 0 . ,-10.,, -4) 

1 160,870 

CALL 

SUBP (2, 1 ) 

ISUBP!  CL SO  CB  RNG 

BUS 

CALI 

9UBP( 102,101 ) 

'SUBP!  OPFN  CP  RNG 

BUS 

CALL 

APNT( 180. ,880. ,-1,-4) 

CALL 

SUBP (264, 251 ) 

• SURF' ! RNG  BUS 

CALL 

SUPF’<  265 ,251  ) 

ISUBP!  RNG  BUS 
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CALL  ESUB 

PRAU  LINE  A1 -3  UITH  CP'S. 


CALL  APNT (160.  ,340.  , -1,-4) 
CALL  SUBP(9,1> 

CALL  SUBP( 109, 101 ) 

CALL  APNT ( 1 70 . ,360. ,-l,-4> 
CALL  VECT 30. ,360. ) 


DRAW  LINE  B 1-3  UITH  CP'S. 


! RUPPS  Cl  SP  CP.  At -3 

• sijpp:  open  cp.  a 1-3 

1 170.720 


CALL  RDOT< 140. .-380. .-1 »-4) 
CALL  SUPP(lO.l) 

CALL  SUSP (110.101) 

CALL  APNT (320. .360. .-1.-4) 
CALL  VECT(0. ,359. ) 


! 310.340 

i sijpp:  clsd  cp.  pi -3 
! sijpp:  open  CP.  PI -3 

! 320.720 


DRAW  LINES  F3-4  ANP  F6-11  UITH  SUITCHES  AT  SECTIONALIZING 
STATION  10. 

CALL  RDOT ( -200 • . 1 AO . .-1.-4) 

CALL  VECT(0. . 118. ) ! 120.1000 

CALL  VECT ( 690 . . 0 . ) ! 810.1000 

CALL  UECT ( 0 . .-100. ) ! 810.900 

PRAU  THE  OPEN  ANP  CLSP  SUITCHES  AT  ST AT  10. 

CALL  SUBP < 160 ) ISIJPPS  OPEN  SU  FA-10 

CALL  SUOPV ( 4 ) 

CALL  ESUP 
CALL  OFF <1  AO) 

CALL  SIJPP  (60)  ISUBPS  CLSP  SU  F6-10 

CALL  SUCLU ( 4 ) 

CALL  ESUP 

CONTINUE  UITH  LINE  AT  SECTIONALIZING  STATION  10. 

CALL  APNT(810. ,880. ,-l ,-4) 

CALL  VECT < 0 . » -40 • ) 

CALL  SUBP  ( 161 » .160) 

CALL  OFF (161) 

CALL  SUBP (61 .60) 

CALL  APNTU310. .820. .-1 .-4) 

CALL  VECT ( 0 . » -300 . ) 

CALL  RPOT( -10. ,-20. , ,-4) 

CALL  SUBP (16.1) 

CALL  SIJPP (116.101) 

CALL  APNT (810. .500. .-1 .-4) 

CALL  UECT(0. ,-98. ) 

PRAU  THE  PUS  AT  STATION  11. 

THE  SECONP  PUS  ANP  DETAIL  IS  ON  STATION  11  PICTURE. 


i 810,840 
ISUBPS OPEN  SU  LR 

ISUBPS  CLSP  SU  LR 
I PR  FOR  LINE  F10-11 
i 810,520 

ISIJPPS  CLSP  CP  IN  F10-11 
ISIJPPS  OPEN  CP  LN  FI 0-11 
i PR  FOR  LINE  TO  BUS 
I 810,402 


CALL  RPOT (-120 .»-2.,-l»-4)  I 690,400 

CALL  SIJPP (271 ,253)  ISIJPPS  BUS  I?  ST  11 

CALL  DECT ( 0 . ,-120. ) 

PRAU  L INF  E10-11  ANP  SUITCHES  AT  STATION  10. 

CALL  APNT (220. ,881 . ,-1,-4)  I PB  FOR  LN  E3-4 

CALL  VFCT  < 0 . , 89 . ) I 220,970 

CALL  VECT (360. ,0. ) I 580.920 

CALL  RPOKO.  ,-10.  , »-4) 


CALL  SUBP (18,1)  ISUBPS  CB  CL  LN  E4-6 


non  non 


t: 

c 

r; 
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CALL  RD0T<0. ,~10. » »-4> 

CALL  S UBP<3,1) 

CALL  SUBP<  103 , 101  ) 

CALL  APNT  ( 280 . » G80 . » -1  » - 4 ) 
CALL  SUSP < 26 A , 251 ) 

CALL  ROOT (-300.  ,-160.  , ,-4) 
CALL  SUBP  ( 268 » 251 ) 

CALL  ROOT <0.»-10.»»-4) 

CALL  SUBP < 4 , 1 ) 

CALL  SUBP <104,101) 

CALL  rtPNKSO,  ,720.  ,-l,-4> 
CALL  SUBP (253) 

CALL  HBUS  < 180 . f 5 ) 

CALL  ESUB 

CALL  RD0T<0. ,-10. , ,-4) 

CALL  S1JBP  (5*1) 

CALL  SUBP( 105, 101 ) 

CALL  APNT  < 280 . * 720 . » ~1 » -4 ) 
CALL  SUBP (270.251) 

CALL  RD0T<1 . ,-2. , .-4) 

CALL  SUBP (267. 255) 


! 260,870 

ISUBP:  OPEN  CB  RN(3  BUS  3 
ISUBP:  OPEN  cb  rnr  BUS  3 

! SUBP ! UP  RT  RNG  BUS 
! 20.720 

! SUBP ! LU  LFT  RNG  BUS 

' SUBP!  CL SB  CB  RNG  BUS  4 
ISUBP:  OPEN  CB  RNG  BUS  4 

'SUBP!  LU  MID  RNG  BUS 


' 160.710 

isubp:  clsb  cb  rng  bus  5 

I SUBP J OPEN  CB  RNG  BUS  5 

i PB  FOR  BUS 

ISUBP:  LU  RT  RNG  BUS 

ISUBP!  RT  RNG  BUS 


COPY  GENERATOR  SUBPICTURE  AT  THE  DESIRED  POSITION  FOR 
GENERATOR  2. 


CALL  APNT  (150. .50.  .-1.-4) 

CALL  SUBP (252. 250) 

CALL  RD0K-10.  .0.  .0,-4) 

CALL  SUBP (7,1) 

CALL  SUBP ( 107, 101 ) 

CALL  APNT (170. ,220., -1,-4) 

CALL  VECT  < 0 . ,120. ) 

DRAU  BUS  AT  STATION  1. 

CALL  RDOTIO. , -40. ,-l  -4) 

CALL  HBUS (150., 5) 

CALL  ROOT (-20. ,-250. ,-1,-4) 

CALL  SUBP <254, 250) 

CALL  ROOT (-10. ,0. , »-4) 

CALL  SUBP (8,1) 

CALL  S(JBP(  108,101) 

CALL  APNT <320. ,220. ,-1,-4) 

CALL  VECT<0. ,120. > 

WRITE  THE  TEXT  ON  THE  GENERATORS. 

CALL  ROOT (-320. ,-330. , ,-5) 

CALL  SUBP (276) 

CALL  TEXT < 'GEN') 

CALL  ESUB 

CALL.  APNT (15., 38.,  1,-5) 

CALL  SUBP (201) 

CALL  TEXT ( ' 1 ' ) 

CALL  ESUB 

CALL  APNT( ISO. ,10. ,-1,-5) 

CALL  SUBP <277, 276) 

CALL  APNK  165.  ,38.  ,0,-5) 

CALL  TEXT ('2') 

CALL  APNT(300. ,10. ,0,-5) 

CALL  SUBP <278, 276) 

CALL  APNT<315. ,38. ,0,-5) 

CALL  TEXT <'3') 

CALL  APNT <220. ,270. ,1,-4) 

CALL  SUBP (202) 

CALL  TEXT ( 'ST-1 ' ) 


isubp:  GEN  2 TO  CB 
I 140,200  PB  FOR  CB 
isubp:  CLSD  cb  FOR  GEN  7 
isubp:  open  cb  FOR  GEN  7 

(CONNECTION  TO  CB  Al-3 


I PB  FOR  BUS 
! 300,50 

ISUBP:  GEN  3 TO  CB 
I 340,200 

ISUBP:  CLSD  CB  (?  8 
isubp:  open  CB  AT  8 

'CONNECTION  TO  CB  Bl-3 


ISUBP!  GEN  1 TEXT 


isubp:  su  for  gen  i 


isubp:  GEN  2 TEXT 


ISUBP:  GEN  3 TEXT 


isubp:  su  for  st  i 
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CAL  L 

SUBF1  < 1 til.  101  ) 

CALI 

AF'NT  ( 600  • .970. 

f — 

1,-4) 

CA1  1 

OF  c r < 1 50 . . 0 . ) 

CALI 

OF  C 1(0. . -70. ) 

CALL 

SUBP < 162.1  AO) 

CALL 

OFF ( 162) 

CAI  L 

SUBP <62. 60) 

CALL 

APNT (750. .880. 

f ~ 

1,-4) 

CALL 

OECT ( 0 . .-40. ) 

CALL 

SUBP< 163. 160) 

CALL 

OFF ( 163) 

CALL 

SUBP (63.60) 

DRAU 

CENTER  SECTIONAL 

.171  NO 

CALL 

APNT (750. .860. 

f “ 

1,-4) 

CAI  L 

VECT ( 20 • .0.  ) 

CALL 

SUBP ( 164) 

CALL 

SUCLH  < 4 ) 

CALL 

ESUB 

CALL 

OFF( 164) 

CALL 

SUBP (64) 

CALL 

SUOF’H  ( 4 ) 

CALL 

ESUB 

CAL  L 

APNT <790. ,860. 

f ~ 

1,-4) 

CALL. 

0ECK20.  .0.  ) 

CALL 

ROOT (-60. ,-40. 

f ■“ 

1.-4) 

CAL  L 

UECT ( 0 . . -500. ) 

CALL 

ROOT (-10. ,-20. 

9 ~ 

1,-4) 

CALL 

SUBP < 17, 1 ) 

CALL 

SUBP (117,101) 

CALL 

APNT (750. ,500. 

9 ~~ 

1,-4) 

CALL 

UECT  < 0 . ,-99. ) 

ISIJBP:  CB  (IP 

' 750 ,970 
i /',.() ,900 

i simp:  su  i]F' 
! SUBF'  * SU  Cl 
i 750.040 

isijbp:  su  op 
isijbp:  su  cl 

SUTTCH  FOR  ST  10. 


i 770,860 

isijbp:  su  cl 


I SUBF' : SU  OP 


I 810,860 
' 750.820 
i 750 . 570 

isijbp:  cl  cb 
isijbp:  op  cp 

I 750 .401 


URITE  THE  TITI  . E OF  THE  PICTURE  TN  ITALICS. 


CALL  STAT(-l) 

CALL  APNT  < 400 . .500. .-1 .-5) 

CALL  TEXT < ' HO  TRANSMISSION') 

CALL  SUBROUTINE  TO  COMPLETE  PICTURE  . 


LN  E4-6 

SI- tO  U! 
ST-tO  IJL 

ST-10  LL 
ST-10  LL 

MID  ST  10 

MID  ST  10 


E10-U 

EtO-U 


CALL  THERST 

STOP 

END 


onn  n n n nn  onoonnooo 


A SUBROUTINE  TO  FINISH  THE  HU  TRANSMISSION  LINE 
PICTURE.  THE  SUBROUTINE  IS  NECESSITATED  BY  HIP  FORTRAN 
COMPILER  NOT  BEING  ABIE  TO  HANDLE  ALL  THE  NECESSARY 
PROGRAM  AT  ONCE  IN  MEMORY. 

SUBROUTINE  THERST 
DIMENSION  TIMM) 

DRAW  THE  INTERCONNECTION  REPRESENTATION. 

CALL  APNT (633.  ,550.  ,-1,-5) 

CALL  TEXT < ' INI  CON') 

CALL  STATU  ) 

CALL  APNT< AGO. ,500. ,~1 ,-4) 

CALL  SUBP<  13,1)  ISLIBP:  CL  CB  I NT  CON 

CALL  SUBP( 113,101)  ! SUSP  5 OP  CB  TNT  CON 

CALL  APNT(690. ,500. ,-l ,-4) 

DRAW  LINE  Cl -11  WITH  CIRCUIT  BREAKERS. 

CALL  UECT <0. , -220.  ) 

CALL  RDOT (-10. ,-20. ,-1,-4) 

CALL  SUBP (14,1) 

CAI  L SUBP (114,1 01) 

CALL  APNT ( 690 . ,260. ,-l , -4 ) 

CALL  UECT(0. ,-40. ) 

CALL  UECT  < -290 . , 0 » ) 

CALL  UECT ( 0. , 180. ) 

CALL  UECT (-180. ,0. ) 

CALL  UECT (0. ,-40. ) 

CALL  RD0K-10.  ,-20.  ,-1,-4) 

CALL  SUBP (11,1) 

CALL  SUBP (111,101) 

CALL  APNT (220. ,340. ,-l ,-4 ) 

CALL  UECT ( 0 . ,-39. ) 

DRAW  LINE  Dl-11  WITH  CIRCUIT  BREAKERS. 

CALL  RDOT (50. ,0. ,-1,-4) 

CALL  UECT (0., 39.) 

CALL  RDOT (-10. ,0.,, -4) 

CALL  SUBP  <12,1) 

CALL  SUBP ( 1 12, 101 ) 

CALL  AF'NT (270.  ,3 AO.  ,-l  ,-4) 

CAIl  UECT (0., 20.) 

CALL  UECT (1 10., 0. ) 

CALL  UECT<0. ,-180. ) 

CALL  UECT < 490. ,0. ) 

CALI  UECT  < 0 . , AO . ) 

CAIl  RDOT  <-10. ,0, , »-4) 

CAIL  SUBP  < J 5,  1 ) 

CALL  SUBP (115,101) 

CALL  APNT (750. ,370. ,1 ,-5> 

CALL  SUBP (206) 

CAIL  TEXT ( 'ST-11 ' ) 

CALL  ESUB 

DRAW  THE  CONNECTIONS  TO  SUBSTATION  4 WITH  CIRCUIT  BREAKERS. 
CALL  APNT ( 425 .,970. ,-1,-4) 

CALL  UECT<0. ,-30. ) I 410,940 
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I 270,301  PB  FOR  Dl-11 
» 270,340 

I SUBP  J CB  Cl  LN  Dl-11 

* SUBP I CB  OP  LN  Dl-11 

1 270,380 
i 380,380 
1 380,200 
i 870,200 

• 870,260 

i SUBP .'  CB  CL  LN  Dl-11 
i SUBP!  CB  OP  LN  Dl-11 

I SUBP!  SW  FOR  ST- 11 


i 690,280 

ISUBPi  CB  CL  LN  Cl-11 
! SUBP : CB  OP  LN  Cl-11 

I 690,220 
! 400,220 
I 400,400 
! 220,400 
! 220,360 

I SUBP I CB  CL  LN  Cl-11 
•SUBP?  CB  OP  LN  Cl-11 

! 220,301  ST  1 BUS 


nnn  n n n non  onn  nno  non 


CALL  ROOT (-10. ,-20. v .-4) 
CALL  SUSP (19.1) 

CALL  SUBP( 119.101) 

CALL  APNT <425.  .920,  .-1  .-4) 


•SUBP!  CB  Cl  ST  4 LF 
isubp:  CB  DP  ST  4 LF 


DRAW  A SUBPICTURE  OF  THE  SUBSTATION  BOX. 


(256) 

(0. .-60. ) 

( —30 • . 0 . . > — 4 ) 
5(120. ,4) 

(30. .20. . »— 4. .4) 
(0. .-100. ) 

(-1R0. .0. ) 

r(0. .100. ) 

( 180. ,0. ) 

' ( -60 . .—20. . .—4. .1 ) 

r(0.  .60.  ) 


isubp:  sub  st  box 

I 425 . (360 
' 395.860 
' 515.860 
i 545.880 
' 545.780 
i 395.780 
' 395.880 
i 545.880 
' 485.860 
! 485.920 


(-10. ,0. . .-4) 

(20.1) 

•(120.101  ) 

(485. ,940. .-1,-4) 
(0. .60. ) 

(-85. ,-190. ,1,-5) 
'(204) 

-( 'SUB  ST-4'  ) 


• subp:  cl  cb  sijb  st-4 
I subp:  op  CB  SUB  ST-4 

I 485. 1000 

!SUBP:  sij  FOP  SUB  ST-4 


THE  PFPRESENTAT I ON  OF  SUBSTATION 


WITH  BUS. 


APNT ( 560 . ,970. ,-1,-4,, 
UFCT < 0 . , -180. ) 

SUBP (257, 256) 

VECT ( 0 . , 180. > 

RDOT ( -85 . , -290 .,1,-5) 
SUBP (205) 

TEXT ( 'SUB  ST-6' ) 

ESUB 


i 560 , 790 

i subp:  box  for  sub  sw 

! 620,970 
! 535.680 

l SUBP!  SW  FOR  SUB  ST-6 


PLACE  THE  NUMBER  FOR  THE  TIME. 

CALL  APNT (885. ,850. »-l ,-5) 

CAL  l NMBR ( 239 , T I M ( 1 > , 4 , ' ( A4  > ' ) 

CALL  NMBR ( 240  » T IM( 2 ) ,4, ' (A4) ' ) 

ABB  ‘MENU’  AS  THF  SWITCH  TO  RFOATN  THE  INTRODUCTION  MENU. 

CAM  APNT (930. ,500. ,1,-5) 

CALL  SUBP (203) 

CALL  TEXT ('MENU') 

CAl L ESUB 

WRITE  THE  TEXT  FOR  THE  ‘ARE  YOU  SURE'  DOUBLE  CHECK 
FOR  LIOHT  PEN  HITS  BUR I NO  THE  PROGRAM  RUN. 

CALL  SUBP  (90)  l SLJBP!  R IJ  SURE 

CALL  APNT (870. ,750. »-l,-5»l> 

CALL  TEXT ('YOU  SURE?') 


DRAW  THE 


SUBPICTURE. 


CALL  SUBP (91) 

CALL  APNT(880. ,700. ,1.-5. - 
CALL  TEXT ('YES') 

CALL  ESUB 


I subp:  CK  IE  YES 


n n n n n n n 


T 


DRAW  THF.  * NO  * SUBFIC TURE  . 

CALL  SURF < 9?) 

CALL  AF'NT  < 950  • .700.  r 1 >-5»-l ) 

CALL  TEXT ('NO') 

CALL  ESUB 

CALL  ESUB 

CALL  OFF < 90) 

SAVE  THE  PICTURE  IN  A FILE  CALLED  * HVTRNS . DPY * • 

CALL  SAVE ( 'HVTRNS. DPY' ) 

RE  TURN 
END 


THE  FOLLOWING  IS  HVTRNS. CMDJ 

HVTRNS/-CP » T I ! /SH=HVTRNS . DSPSUB » HVREST r GLIB/LB 
/ 

ASG-GRO  J .1 
// 
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THE  ,SUDST4.FTN*  FIL  E CONTAINS  THF  FORTRAN  SOURCE  FOR  THE 
SUBSTATION  4 D I SPL  AY . IT  USES  SUBROUTINES  CONTAINED  IN  A FILE 
CALLED  ■DSPSUB.FTN* . EDIT  THE  FILES  USING  THF  EDIT  UTILITY. 

TO  COMF'ILE  WITHOUT  A SOURCE  LISTING,  TYPE? 

>FOR  SUBST4=SUBST 4 
THEN  >EOR  DSPSUB=DSPSUB 

TO  COMPILE  WITH  A NUMBERED  SOURCE  LISTING,  TYPE S 

EOF.;  SUBST4=SUBST4/L  1 : 1 
THEN  >FOR  DSPSUB=DSPSUB/LI J 1 

TO  TASK  BUI l D USING  THE  INDIRECT  COMMAND  FII  F,  TYPE! 

>TKB  PSUBST4 


THIS  CAUSES  FILES,  "SI.JBST4 . OBJ'  AND  * DSF'SIJB . OBJ • , TO  BE  CREATED 
BY  THE  ‘FOR*  COMMAND  AND  A FILE,  • SUBST4 . TSK  * , TO  DF  CREATED  BY 
THE  * T K B ’ COMMAND. 

THE  *P*  SYMBOL  INDICATES  THE  USE  OF  AN  INDIRECT  COMMAND  FILE.  THIS 
IS  FILE,  ■SUBST4.CMD’,  AND  CONTAINS  THE  TASK  BUILDER  COMMANDS  NECESSARY 
TO  BUILD  THIS  TASK. 

TURN  ON  THE  VT-11,  THEN  BUILD  THF  DISPLAY  TO  BF  SAVED  BY  TYPING: 


RUN  SUBST 4 


IF  THF  ABOVE  SEQUENCE  IS  FOLLOWED  A NEW  FILE  IS  CREATED  CALLED 
• SUBST 4. DP Y"  HAT  CONTAINS  THE  SAVED  DISPLAY. 


THF  FOLLOWING  IS  A LIST  OF  THF  SUBPTCTURF  NUMBFRS  FOR  THE 
SUBSTATION  4 DISPLAY.  I HE  FIRST  SF1  CONTAINS  THF  SUBPICTURF  NUMBERS 
THAT  WILL  BE  I IGHT  PEN  SENSITIVE.  THE  ORDER  DETERMINES  THE  ORDER 
OF  THE  COMPUTED  GO  TO  STATEMENT'S  ARGUMENTS  IN  THE  MaTN  PROGRAM. 

THE  REMAINDER  ARE  NO  I SENSITIVE  AND  ARE  EOR  COPYING  PURPOSES  ONLY. 


SUBPICTURE  NUMBERS 

301 

302 

303 

304 


DESCRIPTION 

HV  TRANSMISSION  TEXT  FOR  SU 
NETWORK  SYSTEM  TFXT  EOR  SW 
IN DUST  LOAD  TEXT  FOR  SW 
MENU  TEXT  EOR  SW 


340 

TRANSFORMER 

UPPER  LEFT 

341 

TRANSFORMER 

UPPER  RIGHT 

342 

LEFT  BUS 

343 

RIGHT  BUS 

344 

RESIDENTIAL 

SECONDARY  TRANSF 

345 

RESIDENTIAL 

LD  6 

34  A 

RESIDENTIAL 

l.D  5 

347 

RESIDENTIAL 

LD  4 

348 

RESIDENTIAL 

LD  3 

349 

RESIDENTIAL 

LD  2 

350 

RESIDENTIAL 

LD  1 

351 

RESIDENTAIL 

ST  LTG 
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A PROGRAM  TO  DRAW  THE  PICTURE  FOR  SUBSTATION  4. 

COMMON/HF I LE/ I BUF < 1 050 ) 

CALL  INI r< 1050) 

DRAW  SUBPICTURF  OF  TRANSFORMER  AT  HO  ENIi.  HASHED  I TNES  SHOW 
WHERE  THE  PICTURE  PICKS  UP  FROM  FORMER  PICTURE  OR  WHERE  THE 
REMAINDER  OF  I HE  PICTURE  IS. 


CALL 

APNT (LOO. ,920. .-1.-4) 

CALL 

VECT<  700. .0. .-1 . .-1 . 4 ) 

1 800 

.920 

CALL 

APNT< 115. .880. »-l .-5.-1 . 

1 ) 

CALL 

ST AT ( -1 ) 

CALL 

TEXT! ' E4- A ' ) 

CALL 

APNT <350. .970. .1.-5) 

CALL 

STAT<1 > 

CALL 

SIJBP  < 30 1 > 

CALI. 

TEXT < 'HU  TRANSMISSION') 

CALL 

FSUB 

CALL 

APNT  <715. .800. .-1.-5) 

CALL 

STAT  < -1 ) 

CALL 

TEXT < ' E4-A ' ) 

CALL 

APNT <365. .700. » -1 .-5) 

CALL 

TEXT < 'SUBSTATION-4' ) 

CALL 

ST  AT  < 1 ) 

DRAW 

A SUBPICTURE  OF  THE  TRANSFORMERS. 

CALL 

APNT< 150. .720. ,-1.-4) 

CALL 

SIJ8P  < 340 ) 

i SI  IBP!  TOP 

TRANS ' S 

CALL 

UECT<0. .AO. .-1.4) 

CALL 

TRANSF 

CALL 

UECT ( 0. .50. ) 

CALL 

ESUB 

CALL 

ARROWS  < - 1 .4.-1) 

DRAW 

THE  TOP  CIRCUIT  BREAKER 

ON  THE  LEFT 

♦ 

CALL 

APNT < 1 40 . .700 ..-1.-4) 

CALL 

SUSP <21 ) 

'SI  IBP!  TP 

LF 

CL  CB 

CALL 

CBCLD  < 4 ) 

CALL 

ESUB 

CAI  L 

SUSP < 121 ) 

'SI  IBP!  IF 

IF 

OP  CB 

CALL 

CBOPN < 4 ) 

CALL 

ESUB 

CAI.  L 

APNT  < 150 • .700. .-1.-4) 

CALL 

DECT  < 0 • .-700. > 

CALL 

APNT  < 140. .480. .-1.-4) 

CALL 

SI  IBP  <77.21  > 

' SUSP  1 L WR 

LF 

CL  CB 

CALL 

SUBPU22.121) 

! SUSP t LUR 

LE 

OP  CB 

CALL 

APNT <150. .480. .-1.-4) 

CAI.L 

VECT  < 0 . .-180. ) 

' 150.300 

CALL 

OFCT < AOO . .0.  ) 

' 750.300 

CALL 

DECT  < 0 . . 180. ) 

' 750.480 

CALL 

APNT <740. .480. .-1.-4) 

CALL 

SUSP  <73. 2.1  ) 

isiibp:  LUR 

RT 

CL  CB 

CAL  L 

SUBPI 173.171 > 

'S' IBP!  1 UR 

RT 

OP  CB 

CALL 

APNT  < 750 . .500. .-1 .-4) 

CALL 

VECT <0. .700. ) 

! 750.700 

CALL 

APNT <740. .700. .-1.-4) 
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CALL  SHBP(?4,  21  ) 

CALL  SUBF’<  124 > 121 ) 

CALL  AF’NT  ( 750  . * 720  .,-1,-4) 

CALL  SUBP <341 ,340) 

CALL  ARROWD <-l,4»-l) 

DRAW  THE  PUS  WITH  CIRCUIT  BREAKER. 

DRAW  A SUBP  OF  THE  LEFT  OF  THE  BIJS. 

CALL  AF'NT < 150.  » 600  • , — 1 » — 4 ) 

CALL  SIJBF'  ( 342 ) 

CA1 l HBUS ( 290 . » 5) 

CALL  ESUB 

CALL  AF’NT  (440.  ,590.  ,-1.-4) 

CALL  SUBF’ <25 ,21) 

CALL  SIJBF’ < 125, 121 ) 

CALL  AF’NT <4 AO.  ,A00.  ,-1,-4) 

CALL  SUBF’ (343,342) 

CALL  AF'NT <600.  ,599.  ,-l , -4) 

CALL  VECT  < 0 . ,-99. ) 

CALL  AF'NT  <590.  ,480.  ,-l  , -4) 

CALL  SUBF’ (26, 21) 

CALL  SUBF'  < 126, 121 ) 

CALL  AF’NT  < 600  . , 480  . , - 1 , -4  ) 

CALL  VECT ( 0 . , -30 . , ) 

BRAW  THE  NETWORK  SYSTEM  AS  A BOX  WITH  A 
BASHED  LINE  BOUNDARY. 

CALL  AF’NT <650.  ,450.  ,-l  ,-4,-1 ,4) 

CALL  VECT<<). ,-100. ) 

CALL  ,‘ECT  ( -400 . , 0 . ) 

CALL  DECT < 0 . , 1 00 . ) 

CALL  VECT <400. ,0. ) 

CALL  AF’NT  < 300  . ,450.  ,-l  ,-4,-1 , 1 ) 

CALL  VECT < 0 . , 30 . ) 

CALL  AF’NT  <290.  ,480.  ,-1,-4) 

CALL  SIJBF’  <27, 21) 

CALL  SIJBF'  < 127,  121 ) 

CALL  AF’NT <300.  ,500.  ,-l  ,-4) 

CALL  VECT ( 0 . , 99 • ) 

WRITE  THE  TEXT  FOR  THE  NETWORK  SYSTEM. 

CALI  AF’NT  <350.  ,390.  , 1 ,-5> 

CAL  L SUBF’ < 302 ) ! SIJBF' : SW  FOR  NETWORK 

CALI  TEXT< 'NETWORK  SYSTEM') 

CALL  FSUB 

BRAW  THF  REPRESENTATION  OF  THE  INDUSTRIAL  LOAD. 

CALL  AF’NT <750.  ,400.  ,-l  , -4) 

CALL  VECT (30. ,0. ) 

CALL  AF’NT  < 780.  ,450.  ,-l  ,-4,-1 ,4) 

CALL  VECT (110. ,0.) 

CALL  VECT <0. ,-100. ) 

CALL  VECT  <-110. ,0.) 

CALL  VECT<0. ,100. ) 

CAI  L AF’NT  ( 795 . , 4 1 0 . , 1 , -5 , -1 , 1 ) 

CALL  SUBP  < 303 ) ! SIJBF’  1 SW  FOR  INDUS  LD 

CALL  TEXT < 'INDUST' ) 

CALL  FSUB 

CALL  AF’NT  (810.  ,370.  ,-l , -5) 

CALL  TEXT < 'LOAD' ) 


i 300,480 

i SIIBP : LWR  I F MID  CL  CB 
i SUBP ! LWR  LF  MID  OF’  CB 

i 300,599 


I SUBP J LFT  SIDE  BUS 

i SIJBF’ I MID  BUS  CL  CB 
i SUBP!  MID  BUS  OP  CB 

I SIJBF’ : RT  SIDF  BUS 

i 600,500 

i SIJBF’ ! LWR  RT  MID  CL  CB 
I SUBP ! LWR  RT  MID  OP  CB 

! 600,550 


l SUBF-:  MPR  R I a CB 
I SUBP : IJPR  RT  OP  CB 

I SUBP : UP  TRANS  RT 
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non  n rj  n n r>  n n nn  n n n n r> 


DRAW  THE  RESIDENTIAL  LOADS  WITH  THE  TRANSFORMER. 


CALL  AF'NT  < 450.  . 150. 

,-1,-4) 

CALL  SUBF'  < 344 , 340 ) 

i SUSP! 

RFS  SEC 

TRANS 

CALL  AF'NT  < 150.  . 150. 
CALL  VECT  < AOO . . 0 . ) 
CALL  SUBF' < 345 ) 

CALL  LOAD 

»-l  » -4 ) 

isiidp: 

LOAD 

6 

CALL  ESUB 

CALL  AF'NT  <<S50.  ,150. 
CALL  SUBF' <34A, 345) 

,-1,-4) 

'SUBF'! 

LOAD 

5 

CALL  AF'NT  < 550.  , 150. 
CALL  SUSP <347, 345) 

,-1.-4) 

! SUBF' : 

L OAD 

4 

CALL  AF'NT < 450.  , 150. 
CALL  SUBF' <348, 345) 

•« 

i 

1 

1 SI  IDF'! 

1 OAD 

3 

CALI  AF'NT  < 350.  , 150. 
CALL  SUSP < 349.345) 

,-t  » -4  ) 

'SUBF-: 

LOAD 

2 

CAL  L AF'NT  < 250.  , 150. 

,-1,-4) 

CALL  SUBF'  < 350 » 345 ) 
CALL  AF'NT  < 150.  , 150. 

,-l , -4  ) 

'SUBF'! 

LOAD 

1 

CALL  SUBF' <351 ,345) 
CALL  AF'NT  <330.  ,20.  , 

-1,-5) 

i si  JBP : 

LOAD 

ST 

I.TNG 

CALL  STAT(-l) 

CALL  TEXT! 'RESIDENTIAL  LOADS') 
CALL  STAT  < 1 ) 


CALL  AF'NT  ( 200  . ,620.  ,-l  ,-5> 

CAI  L NMDR  ( 3 1 7 , VOL  TS , 5 » ' ( F5 . 2 ) ' ) 
CALL  STAT ( -1 ) 

CALL  TEXT ( ' VOLTS') 

CALL  STAT ( 1 > 

CALL  AF’NT <550.  >620.  >-1.-5) 

CALL  NMDR <31 8. VOLTS. 5. ' <F5.2) ' ) 
CALL  STAT  < - 1 ) 

CALL  TEXT < ' VOLTS') 

CALL  STAT < 1 ) 

ADD  THE  MEND  SWITCH. 

CALL  AF'NT <930.  ,500.  .1.-5) 

CALL  SUBF'  < 304  ) 

CALL  TEXT  < ' MENU ' ) 

CALL  ESUD 


WRITE  THE  TEXT  FOR  THE  ‘ARE  YOU  SURE*  DOODLE  CHECK 
FOR  LIGHT  F'FN  HITS  DURING  THE  PROGRAM  RIJN. 

CALL  SI  IDF'  < 90  ) i SLIDE' 1 R IJ  SURE 

CAI  L AF'NT  < 870  • .750.  .-1  .-5.1  ) 

CALL  TEXT < 'YOU  SURE?') 

DRAW  IHF  "YES*  SUBPICTURE. 

CALL  SUBF' <91 ) i SURF'S  CK  IE  YES 

CALL  AF'NT  <880.  .700.  . 1 .-5.-1  ) 

CALL  TEXT < 'YES') 

CALL  ESUD 

DRAW  THE  "NO*  SUBPICTURE. 

CALL  SUBF' < 92) 

CAI  L APNT<950. .700. . 1 .-5.-1 ) 

CALL  TEXT < 'NO') 

CALL  ESUB 


C 
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n no 


c 


c 


CALL  ESIJB 
CALL  CFF ( 90 ) 

SAVE  THE  PICTURE  IN  A FILE  CALLED  * SIJBST4 . DPY 

CALL  SAVE < ' SUBST4 . DPY ' > 

STOP 

END 


THE  FOLLOWING  IS  CONTAINED  IN  FILE  SUBST4.CMD* 


SUBST4/-CP > TI  5 /SH=SUBST4  t DSPSUB  * GLIB/LB 

/ 

ASG=GRO:i 

// 


T 


' SUBSTA. ETN*  FILE  CONTAINS  THE 
DISPLAY.  EDIT  THF  FILE  USING 


THF 

SUBSTATION  A 
IT  USES  SUBROUTINES  CONTAINED 
FILE  HAS  NOT  BEEN  PREVIOUSLY 
TO  COMPILE  WITHOUT  A 


FORTRAN  SOURCF  FOR  THE 
THF  EDIT  UTILITY. 
■DSPSHB.FTN* . IF  THIS 
COMPILED  IT  MUST  BE  COMPILED  TOO. 
SOURCE  LISTING.  TYPES 


IN  THE  FUE 


> FOR  SUBSTA--SURSTA 

TO  COMPILE  WITH  A NUMBERED  SOURCE  LISTING.  TYPES 


>FOR  SIJBST 6 = SUBST 6/L I S 1 

TO  TASK  BUILD  USING  THE  INDIRECT  COMMAND  FILE.  TYPES 
>TKB  PSUBSTA 

THIS  CAUSES  A FILE.  'SIJBST A. OBJ* . TO  BE  CREATED  BY  THE  'FOR' 
COMMAND  AND  A FILE.  * SUBSTA . TSK ' , TO  BE  CREATED  BY  Till*  * TKB  • COMMAND. 
THF  '<?•  SYMBOI.  INDICATES  THE  USE  OF  AN  INDIRECT  COMMAND  FII.F.  THIS 
IS  FILE.  'SUBSTA.CMD*.  AND  CONTAINS  THE  TASK  BUILDER  COMMANDS  NECESSARY 
TO  BUILD  THIS  TASK. 

TURN  ON  THE  VT-11.  THEN  BUILD  THE  DISPLAY  TO  BE  SAVED  BY  TYPING 
'RUN  SUBSTA 

IF  THE  ABOVE  SEQUENCE  IS  FOLLOWED  A NEW  FILE  IS  CREATED  CALLED 
•SUBSTA. DPY*  THAT  CONTAINS  THE  SAVED  DISPLAY. 


THF  FOLLOWING  IS  A I 1ST  OF  THF  SUHPTCTIIRF  NUMBERS  FOR  THE 
SUBSTATION  A DISPLAY.  I HE  FIRST  SET  CONTAINS  THF  SIIKI  ICTURE  NUMBERS 
THAT  WILL  BE  LIGHT  PEN  SENSITIVE.  THE  ORDER  DETERMINES  THE  ORDER 
OF  THE  COMPUTED  GO  TO  STATEMENT'S  ARGUMENTS  IN  THE  MATN  PROGRAM. 

THE  REMAINDER  ARE  NOT  SENSITIVE  AND  ARE  FOR  COPYING  PURPOSES  ONLY. 


SUBPICTURE  NUMBERS 

401 

402 

403 

404 


DESCRIPTION 

HV  TRANSMISSION  TEXT  FOR  SW 
LOAD  CENTER  TEXT  FOR  SW 
NETWORK  SYSTEM  TEXT  FOR  SW 
MENU  TEXT  FOR  SW 


420 

421 

422 

423 


• 

LEFT  SIDE  TRANSFORMER 
RIGHT  SIDE  TRANSF 
RIGHT  SIDE  BOX 
LEFT  SIDE  BOX 


THE  FOLLOWING  IS  THF  CONTENTS  OF  SUBSTA. CMDS 


SUBS  T6/-CP. TI  .VSH=5UBSTA.DSPSUB. GLIB/LB 

/ 

ASG=GR0J1 

// 
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PROGRAM  TO  DRAW  THF  PICTURE  FOR  SUPSTAT ION- A . 

COMMON/DFILE/IBUF ( 1000) 

CALL  INI T ( 1 000 ) 

URAU  TRANSFORMER  ANP  TEXT  FOR  INCOMING  LINES. 

CALL  APNT( 100. ,920. ,-l ,-4> 

CALL  UECT <700. >0. , -1 » » -1 , 4 ) ! 800.920 

CALL  APNT < 175 • .890. » -1 .-5.-1 . 1 ) 

CALL  TEXT ( ' E4-A ' ) 

DRAW  THE  SWITCH  FOR  HO  TRANSMISSION  PICTURE. 

CALL  APNT (350. .940. . 1 .-5) 

CALL  SUBP ( 401  ) ISUBP1  HV-TRNS  SW 

CALL  TEXT ( ' HO  TRANSMISSION') 

CALL  ESUB 

TEXT  FOR  OTHER  INCOMING  LINE. 

CALL  APNT < AA3 . .890. .-1 .-5.-1  . 1 ) 

CALL  TEXT ( ' EA  -10  ' ) 

TEXT  FOR  PICTURE  LABEL  * SUPSTAT ION-A ■ . 

CALL  APNT  < 3A5 . .700, .-1.-5) 

CALL  STAT(-l)  ! TURN  ON  ITALICS. 

CALL  TEXT< ' SUBSTAT ION-A ' ) 

CALL  STAT(l) 

DRAW  A SUBPICTURE  OF  THF  TRANSFORMER.  TO  BE  COPIED  LATER. 
CALL  APNT(200. .720. »-l .-4) 

CALL  SUBP (420)  ! SUBP ! LT  TRANSF 

CALL  OECT ( 0 . . 50 . ) 

CALL  TRANSF 
CALL  0ECT(0. .AO. ) 

CALL  ARROUD (-1.4.-1) 

CALL  ESUB 

URAU  THE  CIRCUIT  BREAKER  ON  THE  LEFT  TOP.  CB  *1. 


CALL  APNT (190. .700. . -1 .-4) 

CALL  SUBP (34)  !SUBPJ  CL  CB  #1 

CALL  CBCLIK4) 

CALL  ESUB 

CALL  SUBP (134)  !SUBPJ  OP  CB  *1 

CALL  CBOPN ( 4 ) 

CALL  ESUB 

CONTINUE  WITH  CONNECTIONS  TO  THE  PUS  AND  THE  MAIN  BUS  ITSELF. 

CALL  APNT (200. .700. ,-1.-4) 

CALL  VFCT ( 0 . ,-100. ) 

CALL  HPUS  < 500 • .5) 

CALL  VFCT<0. ,100. ,-1,4) 

DRAW  THE  CIRCUIT  BREAKER  #2. 


•f.  flis'iy.t.v.  - V -i  i'ft  ■ ■ 


CALL 

StJBP  <35, 34  ) 

•SUBP:  Cl  CB  *2 

r • — 

CALL 

SUSP < 135.134) 

! SUBP!  OP  CB  *2 

c 

c 

COPY 

THF  TRANSFORMER. 

c 

CALL 

APNT ( 700 . .720, ,-1.-4) 

CAt  L 

SUBP <421 ,420) 

•SUBP:  RT  TRANSF 

c 

> 

c 

BEGIN  DRAW  TNG  THE  CIRCUIT  BREAKERS  AND 

CONNECTIONS  TO  THE 

c 

BOXES  FOR  THE  NETWORK  SYSTEM  AND  THE  LOAD  CENTER. 

CALL 

APNT <325. , 600 . ,-1,-4) 

CALL 

VECT  <0 . ,-200 . ) 

• 325,400 

CALL 

ROOT (-10. ,-20. ,-1,-4) 

CALL 

SUBP ( 32 , 34 ) 

•SUBP*.  CL  CB  *4 

CALL 

SUSP <132 ,134) 

I SUBP : OP  CB  14 

CALI 

APNT <325. ,380. ,-l ,-4) 

CALL 

VECT<0. ,-80. ) 

c 

« 

CALL 

APNT <450. ,600. ,-1,-4) 

CALL 

VECT  < 0 . ,-200. ) 

CALL 

ROOT<-10. ,-20. ,-l , -4 ) 

CALL 

SUSP <33. 34) 

isubp:  CL  CB  *5 

CALL 

SUBP (133,134) 

'SUBP:  OP  CB  15 

CALL 

APNT <450. ,380. ,-1,-4) 

r 

CALL 

VECT ( 0 . ,-ao. ) 

CALL 

APNT <575. ,300. ,-1,-4) 

CALL 

VECT  < 0 . ,80. ) 

CALL 

ROOT (-10. ,0. ,-1,-4) 

CALL 

SUBP <38,34) 

•SUBP:  CL  CB  *6 

CALL 

SUBP  < 138,134) 

isubp:  OP  CB  *6 

CALL 

APNT <575. ,400. ,-1,-4) 

CALL 

VECT<Q. ,200. ) 

CALL 

APNT  < 700 . , 600 .,-1,-4) 

CALL 

VECT  <0. ,-200.  ) 

CALL 

ROOT (-10. » -20. ,-1,-4) 

CALL 

SUBP <37. 34) 

isubp:  CL  CB  *7 

CALL 

SUBP (137,134) 

isubp:  OP  CB  *7 

CALL 

APNT < 700. ,380. ,-1,-4) 

CALL 

VECT <0. ,-80.  ) 

c 

DRAW 

THE  BOXES  FOR  THE  OTHER  SYSTEMS. 

•c 

CALL 

ROOT <50. ,0. ,-1,-4) 

CALL 

SUBP <422) 

•SUBP:  BOX 

CALL 

VECT ( 0 . ,-100. ,-l ,4,-1 ,4) 

•750,200 

CALL 

VECT ( -225 • ,0. ,-l ) 

I 525,200 

CALL 

VECT(0. ,100. ) 

! 525,300 

CALL 

VECT  < 225 . , 0 . ) 

• 750,300 

CALL 

ESUB 

c 

c 

WRITE  THE  TEXT  IN  THE  RIGHT  BOX. 

c 

CALL 

APNT <560. ,260. , 1 ,-5,-1 , 1 ) 

• 

CALL 

SUBP (402) 

isubp:  sw  for  lb  ctr 

CALL 

TEXT ('LOAD  CENTER') 

CALL 

APNT (570. ,225. ,1,-5) 

CALL 

TEXT< 'SUBSTATION' ) 

CALL 

ESUB 

c 

c 

COPY 

THE  LEFT  BOX  AND  ABU  THE  TEXT. 

c 

CALL 

APNT <500. ,300. ,-1,-4) 

CALL 

SUBP <423, 422) 

isubp:  box 

•h£ 

CALL 

APNT <340. ,260., 1,-5, -1,1) 

■f 

■■■'  > ■ ■ ■ ■ « • 
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CALL  SUSP <403)  'SUBP:  SW  FOR  NIWK 

CALL  TEXT < 'NETWORK' ) 

CALL  APNT<347. ,225. ,1 ,-5> 

CALI.  TEXT  ( ' SYSTEM ' ) 

WRITE  THE  TEXT  FOR  THE  * ARE  YOU  SURE 1 DOUBLE  CHECK 
FOR  LIGHT  FEN  HITS  DURING  THE  PROGRAM  RUN. 

CALL  SUBP<90)  iSUBPS  R U SURE 

CALL  APN?  ( 870 . .750.  .-1  »-5.,l  ) 

CALL  TEXT < ' YOU  SURE?') 

DRAW  THE  'YES*  SUBPICTURE. 

CALL  SUBP ( 91 ) !SUBP:  CK  IF  YES 

CALL  APN T( 800. .700. . 1 .-5,-1 ) 

CALL  TEXT! 'YES') 

CALL  ESUB 

r 

DRAW  THE  ’NO"  SUBPICTURE. 

CALL  SUBP  < 92 ) 

CALL  APNT <950., 700., 1, -5,-1)  \ 

CALL  TEXT! 'NO') 

CALL  ESUB  j 

CALL  ESUB  ^ 

THE  MANUAL  BUS  WITH  THE  TIE  CIRCUIT  BREAKER  TS  DRAWN  NEXT. 

THE  LINES  ARE  DRAWN  AT  A INTENSITY  OF  TWO  SO  THAT  IT  WILL 
SHOW  ONLY  WHEN  IT  DESIRED  TO  OPERATE  IN  THE  MANUAL  MODE. 

CALL  APNT <200. ,750. »-l ,-l »-l , 1 ) ] 

CALL  VECT  ( -50  .»().) 

CALI  UECT<0. , -100. > * 

DRAW  THE  SUBPICTURES  OF  THE  OPEN  AND  CLOSED  MANUAL  SWITCHES.  > 

THE  SWITCHES  OPEN  AND  CLOSE  ONLY  ON  THE  SCREEN. 


CALL  SIJBP  < 71)  ISUBPJ  SW  OP  UP  LT 

CALL  SWOPU(l) 

CALL  ESUB 

CALL  SUBP (171)  ISUBPJ  SW  CL  UP  LT 

CALL  SUCLV<1) 

CALL  ESUB 
CALL  0FF< 171) 

CALL  AF'NTC  150.  ,630.  ,-1.-1, -1,1  ) 

CONTINUE  WITH  THE  LINE  CONNECTION  TO  THE  BUS. 

CALL  VECT ( 0 . .-130 , » -1 , 1 ) 

DRAW  THE  DIM  BUS. 

CALL  HBUS  < 600 . , 1 ) 

C 

C CONTINUE  WITH  THE  MANUAL  SWITCHES  AND  CONNECTIONS. 

C 


CAII 

APNT <700. ,750. ,-l ,-l ) 

CALL 

VECT (50. ,0. ) 

- 

CALL 

VECKO.  ,-100.  ) 

CALL 

SUBP <72, 71 ) 

isubp:  sw 

OP 

UP 

RT 

• 

CALL 

SUBP< 172, 171 ) 

• suBp : sw 

CL 

UP 

RT 

1 

CALL 

OFF < 172) 

CALL 

APNT <750., 630., -1,-1) 

f* 

CALL 

VECT(0.,-230.,-l,l) 

! 750.400 

0 

) 

noon  non  non  non 


CALL  SIJBP  <73. 71  ) 

CALL  SUBP<173.171> 

CALL  OFF (173) 

CAI  I APNT (750.  . 3no. » - 1 * — 1 > 

CALI  VFC T ( 0 . * -30 . » - 1 * 1 ) 

CALL  VECT < -50. .0. ) 

CALL  APNT < 625 . , 500 ,.-1.-1) 

CALL  VECT ( 0 . » - 1 00 . ) 

CALL  SUBP (74.71) 

CALL  SUBP< 174. 171 ) 

CALL  OFF (174) 

CALL  APNT  < 625 . » 380 ..-1.-1) 

CALL  VECT  ( 0 . » -30 . » -1 » 1 ) 

CALL  VECT ( -50 . » 0 • ) 

CALL  APNT (500. .500. * -1 » -1 > 

CALL  VECT < 0 . * -100 . ) 

CALI.  SUBP  (75*71) 

CALL  SUBP (175.171) 

CAI  L OFF  < 175) 

CALL  APNT (500. .300. .-1.-1) 

CALL  VECT ( 0 • » -30 ..-1.1) 

CALL  VECT (-50. .0. ) 

CALL  APNT (375. .500. » -1 .-1  ) 

CALL  VECT (0. .-100. ) 

CALL  SUBP (7 A. 71 ) 

CALI  SUBP ( 176. 171 ) 

('ALL  OFF  (176) 

CALL.  APNT  < 375  • .380.  . -1 .-1  ) 

CALL  VECT (0. .-30. ) 

CALL  VECT ( -50 . . 0 . ) 

DRAW  THE  BUS  TTE  CIRCUIT  BREAKER. 


i si  IBP:  SU  OP  LUR  RT 
l SUBP : SU  Cl  LUR  R T 


! 700.35Q 


i SUBP : SU  OP  LUR  MID  RT 
(SUBP!  SU  CL  I UR  MID  RT 


l SUBP!  S U OP  LUR  MID  I T 
l SI  IBP : SU  CL  LUR  MID  LT 


I SIJBP ! SU  OP  I UR  LT 
•SUBP!  SU  CL  LUR  LT 


I 325.350 


CALL  APNT (200. .500. .-1 .-1 ) 

CALL  VECT (0.. 40.) 

CALL  RD0T(-10. .0.  ) 

CALL  SIJBP (36)  ! SIJBP!  BUS  TIE  CB 

CALL  CBCLD(l) 

CALL  ESUB 

CALL  SUBP  (136)  • I SIJBP  5 BUS  TIE  CB  OP 

CALL  CBOPN(l) 

CALL  ESUB 

CALL  APNT (200. .560. .-1.-1  ) 

CALL  VECT (0.. 40.) 


ADD  A MENU  SWITCH. 

CALL  APNT (930. .500. .1.-5) 

CALL  SUBP (404) 

CALL  TEXT ('MENU') 

CALL  ESUB 

ADD  THE  BUS  VOLTAGE. 

CALL  APNT (400. .620. .-1.-5) 

CAI  I.  NMBR ( 958 . VOLTS » 5 . ' (F5.2)  ' ) 

CALL  STAT(-l) 

CALL  TEXT ( ' VOLTS') 

CALL  STAT(l) 

CALL  OFF (90) 

SAVE  THE  PICTURE  IN  A FILE  CALLED  * SIJBST6 . DRY  ’ . 

CALL  SAVE ( ' SUBST6 . DPY ' ) 

C 

STOP 

END 
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THE  'LDCTR. FTN*  FILE  CONTAINS  THF  FORTRAN  SQURCF  FOR  THE 
LOAD  CENTER  DISPLAY.  EDIT  THE:  FILE  UR I NR  THF  EDIT  UTILITY. 

IT  USES  SUBROUTINES  CONTAINED  IN  THE  FILE.  * DSRSUB . FTN * . IF  THIS 
FILE  HAS  NOT  BEEN  PREVIOUSLY  COMPILED.  IT  MUST  RE  COMPILED  TOO. 

TO  COMPILE  WITHOUT  A SOURCE  LISTING.  TYPE: 

>FOR  LDCTR=LDCTR 

TO  COMPILE  WITH  A NUMBERED  SOURCE  LISTING.  TYPES 
>FOR  LDCTR=LDCTR/LI J 1 

TO  TASK  BUILD  USING  THE  INDIRECT  COMMAND  FILE.  TYPES 
>TKB  PLDCTR 

THIS  CAUSES  A FILE.  " LDCTR . OBJ  * . TO  BF  CREATED  BY  THE  'FOR* 
COMMAND  AND  A FILE.  'LDCTR. TSK*.  TO  BE  CREATED  BY  THF  " T K B 1 COMMAND. 

THE  *P’  SYMBOL  INDICATES  THE  USE  OF  AN  INDIRECT  COMMAND  FILE.  THIS 
IS  FILE.  ’ LDCTR.CMD" » AND  CONTAINS  THE  TASK  BUILDER  COMMANDS  NECESSARY 
TO  BUILD  THIS  TASK. 

TURN  ON  THE  VT-11.  THEN  BUILD  THE  DISPLAY  TO  BE  SAVFD  BY  TYPINGS 
>RUN  LDCTR 

IF  THE  ABOVE  SEQUENCE  IS  FOLLOWED  A NEW  FII  E IS  CREATED  CALLED 
•LDCTR. DPY'  THAT  CONTAINS  THE  SAVED  DISPLAY. 

THF  FOLLOWING  IS  A LIST  OF  THE  SURPTCTURF  NIIMRFRS  FOR  THE 
LOAD  CENTER  DISPLAY.  THE  FIRST  SET  CONTAINS  THE  SUBPICTURE  NUMBERS 
THAT  WILL  BE  LIGHT  PEN  SENSITIVE.  THE  ORDER  DETERMINES  THE  ORDER 
OF  THF  COMPUTED  GO  TO  STATEMENT'S  ARGUMENTS  IN  THE  MAIN  PROGRAM. 

THE  REMAINDER  ARE  NOT  SENSITIVE  AND  ARE  FOR  COPYING  PURPOSES  ONLY. 

DESCRIPTION 

HV  TRANSMISSION  TEXT  FOR  SW 
SUBSTATION  A TEXT  FOR  SW 
MENU  TEXT  FOR  SW 
SUB  ST  A BUS  VOLTAGE 
LEFT  SIDE  SECONDARY  VOLTAGE 
LEFT  SIDE  SECONDARY  AMPS 
RIGHT  SIDE  SECONDARY  VOLTS 
RIGHT  SIDE  SECONDARY  AMPS 


SUBPICTURE  NUMBERS 

501 

502 

503 

504 

505 

506 

507 

508 


520 

TRANSFORMER 

UPPER 

LEFT 

521 

TRANSFORMER 

IJPPFR 

RIGHT 

522 

LOAD  *1 

523 

LOAD  #2 

524 

LOAD  *3 

525 

LOAD  #4 

THE  FOLLOWING  IS  CONTAINED  IN  THE  FILE  LDCTR. CMDS 


LDCTR/-CP . TI S /SH-LDCTR . DSPSUB . GLIB/LB 
/ 

ASG=GR0  S 1 
// 


non  nnnn  nnriooo  non  nno  non  no 


T 


c 

PROGRAM  TO  DRAW  THE  LOAD  CENTER  SUBSTATION. 

COMMON/HFILE/IBUF  < 1000) 

CALL  IN I T < 1 000 ) 

START  AT  THE  TOP  0E  THE  LEFT  LOAD  AND  PROCEED  CLOCKWISE. 

CALL  APNT < 200 • ,300. ,-l ,-4,-1 , 1 ) 

CALL  DECT (0. » 200 . » - 1 ) 

DRAW  CIRCUIT  BREAKER  SS-1. 

CALL  ROOT (-10. ,0.,, -4) 

CAl  L SUSP (39) 

CALL  CBCLD  < 4 ) 

CALL  ESUB 
CALL  SUBP (139) 

CALL  CBOF’N  ( 4 ) 

CALL  ESUB 

CALL  APNT ( 200 . , 520 . ,-1,-4) 

CALL  SUBP (520) 

CALL  DECT<0. , 110. > 

CALL  TRANSF 
CALL  DECT <0. ,110. ) 

CALL  ESUB 

DRAW  THE  *6  CIRCUIT  BREAKER  FROM  SUBSTATION  A. 

CALL  RDOT (-10. ,0. ,-l » -4  ) 

CALL  SUBP (38,39) 

CALL  SURF- (130,139) 

CALL  APNT (200. ,800. , -1,-4) 

CALL  DECT ( 0. , 100.  ) 

DRAW  THE  BUS  OF  SUBSTATION  6. 

CALL  HBUS ( 500 . , 5 ) ' 700,900 


CONTINUE  WITH  THE  RIGHT  PORTION. 


CALL 

DECT ( 0 . ,-100. ,-l  ,4) 

' 700. 

,800 

CALL 

RDOT (-10. ,-20. , ,-4) 

CALI. 

SUBP (37,39) 

' sijbp: 

CL  CB 

#7 

CALL 

SUBP ( 137, 139) 

i subp: 

OP  CB 

♦ 7 

CALL 

APNT (700. ,520. ,-1,-4) 

CALL 

SUBP (521 ,520) 

i sijbp: 

TRANS 

ON  RT 

CAl  L 

APNT (690. ,500. ,-1,-4) 

CALL 

SUBP (40, 39) 

i sijbp: 

CL  CB 

4SS-3 

CALL 

SUBP ( 140,139) 

i sijbp: 

OP  CB 

♦ SS-3 

CAL  L. 

APNT (700. ,500. ,-1,-4) 

CALL 

DECT ( 0 . ,-200. ) 

! 700, 

300 

DRAW  THE  DASHED  LINE  ACROSS  THE  PICTURE  TO  DEPICT  THE  PORTION 
THAT  TS  ALREADY  DEPICTED  ON  THE  SUBSTATION  6 PICTURE. 

CALL  APNT ( 800 . ,730. ,-1,-4, -1,4) 

CAl  L DECT ( -700 . , 0 . ) ! 100,750 

DRAW  A DASHED  LINE  ABODE  THE  BUS  TO  DFPICT  THE  FACT  THAT  THE 
HD  TRANSMISSION  LINE  PICTURE  CONTAINS  THE  GENERATION  WHICH  IS 
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•SUBP!  CL  CB  *6 
i SUBP ! OP  CB  *6 

! 200,900 


1 SUBP : CL  CB  #SS-1 


I SUBP:  OP  CB  #SS-1 


i SUB!  . TRANS  ON  LT 
* 200-630 
' 200,670 
i 200.780 


\ 

* 

•> 

1 

$ 


non  non  non  onnn  non 


THE  INPUT  TO  THE  PICTURE.  THE  TEXT  WILL  BE  THE  SWITCH  FOR 
CHANGING  TO  THIS  PICTURE. 

CALL  APNT < 100. .940. ,-l .-4.-1 ) 

CALL  VECT ( 700 . . 0 . ) 

CAI  L APNT <350.. 950.. 1.-5. -1.1) 

CALL  SUBF‘ ( 501 ) 

CALL  TEXT ( ' HV  TRANSMISSION') 

CALL  ESUB 

WRITE  THE  TEXT  FOR  SUBSTATION  A A NO  SENSITIZE  IT  FOR  THE 
LIGHT  PEN. 

CALL  APNT(365. .810. .1.-5) 

CALL  SUSP (502)  I SUBP ! SW  FOR  ST-6 

CALL  TEXT ( ' SUBSTATION- A ' ) 

CALL  ESUB 

DRAW  THE  SECONH ARIES  STARTING  ON  THE  RIGHT. 

CALL  APNT (300. .300, »-l >-4) 

CALL  VECT ( -200. .0. ) 

CALL  VECT <0. .-50.  ) 

CALL  RDOT(-10. .-20. >-l »-4> 

CALL  SUSP (42. 39) 

CALL  SUBP (142.139) 

CALL  APNT ( 1 00. .230. .-1 .-4) 

CALL  VECT (0. .-AO.  ) 

CALL  SUBP (522) 

CALL  LOAD 
CALL  ESUB 

WRITE  THE  NAME  OF  THE  PICTURE  IN  ITALICS. 


! 100.300 
! 100.250 

•SUBPJ  CL  CB  *1 
isubp:  OP  CB  *1 


isubp:  load 


I 800.950 

isubp:  SU  FOR  HVTRNS 


CALL  STAT(-l) 

CALL  APNT (297. .600. .-1 .-5) 

CALL  TEXT ( ' LOAD  CENTER  SUBSTATION') 
CALL  APNT (318. .550. .-1 .-5) 

CALL  TEXT ( 'SECONDARY  SELECTIVE') 

DRAW  THE  TIE  BREAKER. 


CALL  APNT (200. .450. .-1.-4) 
CALL  VECT ( 240. .0.  ) 

CALL  ROOT (0. .-10, .-1.-4) 

CALL  SUBP (4 1.39) 

CALL  SUBP (141. 139) 

CALL  APNT(4A0. .450. .-1.-4) 
CALL  VECT (240. ,0. > 

CALL  APNT( 300. .300. .-1.-4) 
CALL  VECT ( 0 . » -50 . ) 

CALL  RD0T(-10. .-20. .-1.-4) 
CALL  SUBP (43. 39) 

CALL  SUBP( 143. 139) 

CALL  APNT (300. .230. ,-1.-4) 
CALL  VECT (0. .-60. ) 

CALL  SUBP (523. 522) 

CALL  APNT ( 800 . » 300 • .-1.-4) 
CALL  VECT < -200, fO.) 

CALL  VECT (0. . -50.  ) 

CALL  RPOT (-10. f-20. f-4»-4) 
CALL  SUBP (4 4. 39) 

CALL  SUBP ( 144.139) 

CALL  APNT(600.  ,230.  .-1.-4) 
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i 440.450 

ISUBP?  CL  CB  #SS-2 
isubp:  OP  CB  4SS-2 

I 700.450 


I 300.250 

'SUBP:  CL  CB  *2 
ISUBP!  OP  CB  *2 

I 300.170 

isubp:  load  *2 


•SUBP:  CL  CB  *3 
isubp:  OP  CB  #3 


♦ 


. 


c 

c 

c 

c 


c: 

c 

c 


c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 


c 

c 

c 


CAI  L 

VECT ( 0 . .-AO. ) 

i A00.170 

CALL 

SUBP (524. 522) 

isubp:  load 

*3 

CALI 

APNT (800. ,300. 

.-1 

» -4  > 

CALL 

VECT(0. ,-50. ) 

CALI 

ROOT (-10. » -20. 

.-1 

» -4  ) 

CALL 

SUBP ( 45 , 39 ) 

isubp:  cl 

CB 

*4 

CALL 

SUBP (145, 139) 

isubp:  op 

CB 

♦ 4 

CALL 

APNT (800. .230. 

,-l 

» -4 ) 

CALL 

VECT  (0..-60.) 

1 800,170 

CALL 

SUBP (525. 522) 

isubp:  load 

*4 

WRITE  THE  TEXT  AT  THE  BOTTOM  TO  DESCRIBE  THE  DISTRIBUTION 
SYSTEM. 

CALL  APNT (235. .40. »-t ,~5) 

CALL  TEXT < ' 240  0 - 3',-l»'B'»'  - 3W  DISTRIBUTION') 

ADD  THE  MENU  SWITCH. 

CALL  APNT  ( 9.30 . » 500  .,1,-5) 

CALL  STAT(l) 

CALL  SUSP (503) 

CALL  TEXT ('MENU') 

CALL  ESUB 

WRITE  THE  TEXT  FOR  THE  ‘ARE  YOU  SURE’  DOUBLE  CHECK 
FOR  LIGHT  PEN  HITS  DURING  THE  PROGRAM  RUN. 

CALL  SUSP (90)  isubp:  R U SURE 

CALL  APNT ( 870 . » 750 . .-1.-5.1) 

CAI  L TEXT ( ' YOU  SURE? ' ) 

DRAW  THE  ’YES’  SUBPICTURE. 

CALL  SUSP ( 91 ) isubp:  ck  if  yes 

CALL  APNT (880. .700. .1 .-5.-1 ) 

CALL  TEXT ('YES') 

CALL  ESUB 

DRAW  THE  •NO"  SUBPICTURE. 

CALL  SUBP ( 92 ) 

CALI  APNT (950. .700. . 1 .-5.-1 ) 

CALL  TEXT  ('NO') 

CALL  ESUB 
CALL  ESUB 

CALL  OFF (90) 

BUS  001  TAGE  ON  SUBSTATION  6. 

CALL  APNT (720. .890. .-1 .-5) 

CALL  NMBR ( 958 . VOLTS » 5 . ' (F5.2) ' ) 

CALL  STAT(-l) 

CALL  TEXT ( ' VOLTS') 

LEFT  SIDE  SECONDARY  VOLTAGE  AND  CURRENT. 

CALL  APNT ( 220 . . 400 . » -5 . -5 ) 

CALL  STATU) 

CALL  NMBR ( 956 . VOLTS . 5 . ' (F5.2) ' ) 

CALL  STAT(-l) 

CALL  TEXT ( ' VOLTS') 

CALL  APNT ( 220 . . 350 • » -1 » -5  > 

CALL  STATU) 
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CALL  NMDR<955rV0LTS»5, ' <F5.2> ' ) 

CALL  S TAT (-1 ) 

CALL  TEXT ( ' AMPS') 

RIGHT  SIDE  SECONDARY  VOLTAGE  AND  CURRENT. 

CALL  APNT < 720 . t 400 . * - 1 » -5 ) 

CALL  STAT(l) 

CALL  NMDR < 957 » V0LTS»5» ' <F5.2> ' ) 

CALL  ST AT  < -1 ) 

CALL  TEXT < ' VOLTS') 

CALL  APNT ( 720 . >350. » -1 »-5) 

CALL  STAT<1> 

CALL  NMDR < 954 » VOLTS  ? 5 » ' (F5.2) ' ) 

CALL  STAT(-l) 

CALL  TEXT  < ' AMPS') 

SAVE  THE  PICTURE  IN  A FILE  CALLED  * LDCTR . DPY • . 

CALL  SAVE ( 'LDCTR. DPY' ) 

STOP 

END 


I 


i 
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THE  'NETSYS. ETN*  FILE  CONTAINS  THE  FORTRAN  SOURCE  FOR  THE 
NETWORK  SYSTEM  DISPLAY.  EDIT  THE  FILE  USING  THE  EDIT  UTILITY. 

IT  USES  SUBROUTINES  CONTAINED  IN  THE  FILE.  MiSPSUB . FTN * . IF  THIS 
FILE  HAS  NOT  BEEN  PREVIOUSLY  COMPILED.  IT  MUST  BE  COMPILED  TOO. 

TO  COMPILE  WITHOUT  A SOURCE  LISTING.  TYPE S 

>FOR  NETSYS=NETSYS 

TO  COMPILE  WITH  A NUMBERED  SOURCE  LISTING,  TYPE: 

>FOR  NETSYS=NETSYS/L  I i 1 

TO  TASK  BUILD  USING  THE  INDIRECT  COMMAND  FILE.  TYPES 


>TKB  ONETSYS 

THIS  CAUSES  A FILE,  ■ NETSYS . OB J ■ . TO  BE  CREATED  BY  THE  'FOR* 
COMMAND  AND  A FILE,  * NETSYS . TSK • , TO  BE  CREATED  BY  THE  * TKB ■ COMMAND. 

THE  *»■  SYMBOL  INDICATES  THE  USE  OF  AN  INDIRECT  COMMAND  FILE.  THIS 
IS  FILE,  "NFTSYS.CMD" , AND  CONTAINS  THE  TASK  BUILDER  COMMANDS  NECESSARY 
TO  BUILD  THIS  TASK. 

TURN  ON  THE  VT-U,  THEN  BUILD  THE  DISPLAY  TO  BE  SAVED  BY  TYPINGS 
>RUN  NETSYS 


IF  THE  ABOVE  SEQUENCE  IS  FOLLOWED  A NEW  FILE  IS  CREATED  CALLED 
■NETSYS. DPY*  THAT  CONTAINS  THE  SAVED  DISPLAY. 

THE  FOLLOWING  IS  A LIST  OF  THE  SUBPICTURE  NUMBERS  FOR  THE 
NETWORK  SYSTEM  DISPLAY.  THE  FIRST  SET  CONTAINS  THE  SUBPICTURE  NUMBERS 
THAT  WILL.  BE  LIGHT  PEN  SENSITIVE.  THE  ORDER  DETERMINES  THE  ORDER 
OF  THE  COMPUTED  GO  TO  STATEMENT'S  ARGUMENTS  IN  THF  MATN  PROGRAM. 

THE  REMAINDER  ARE  NOT  SENSITIVE  AND  ARE  FOR  COPYING  PURPOSES  ONLY. 


SUBPICTURE  NUMBERS 
AOt 
602 
M3 

604 

605 


DESCRIPTION 

TOP  l-IV  TRANSMISSION  TEXT  FOR  SU 
SUBSTATION  6 TEXT  FOR  SW 
SUBSTATION  4 TEXT  FOR  SU 
BOTTOM  HV  TRANSMISSION  TEXT  FOR  SW 
MENU  TEXT  FOR  SU 


620 

A?  1 

XTO 

42 « 
»,  "4 


SUBSTATION  6 BUS 
SUBSTATION  4 VlS 
TRANSF  LOWER  RIGHT 
TRANSE  UPPER  RIGHT 
TRANSE  LOWER  LEFT 
TRANSE  UPPER  LEFT 
LOAD  *1 
LOAD  92 

? 


no  no  nnn  n n n o nnn  non  non  non  non 


PROGRAM  TO  DRAW  THE  NETWORK  SYSTEM. 

COMMON/DF II. F/ 1 BUF  ( .1 000 ) 

CALL  INI T< 1000) 

START  WITH  THE  TEXT  AT  THE  TOP. 


CALL  APNT ( 350 . .950. .1 ,-5.-1 .1  ) 

CALL  SIJBP<601>  ISUBPtHVTRNS  SW 

CALL  TEXT ( ' HO  TRANSMISSION') 

FALL  ESUB 

DRAW  DASHED  LINE  TO  INDICATE  WHERE  SEPARATION  OF  PRIOR  PICTURES. 
CALL  APNT < 100. ,940. ,-1,-4, -1,4) 

CALL  VECT < 700 . , 0 . ) ! 800,940 

DRAW  THE  BUS  FOR  STATION  6 AS  A SUBPICTURE. 

CALL  APNT (750. , 900 . , - 1 , -4 , - 1 , 1 ) 

CALL  SUBP  ( 620 ) ! SUBP 5 HBUS  ST-6 

CALL  HBUS < -600 . ,5) 

CALL  ESUB 

CONTINUE  WITH  TEXT  AND  DASHED  LINES. 

CALL  APNT ( 365 . , 840 . , 1 , -5 , -1  , 1 ) 

CALL  SUBP  <602)  ■ SlIBP!  SIJBST-6  SU 

CALL  TEXT < 'SUBSTATION-6' ) 

CALL  ESUB 

CALL  APNT< 100. ,780. ,-l ,-4,-1 ,4) 

CALL  DECT (700. ,0. ) 

WRITE  THE  TITLE  OF  THE  PICTURE  IN  ITALICS. 

ADD  THE  STREET  MAINS  OF  THE  NETWORK  IN  ONE-LINE  DIAGRAM  FORM. 

CALL  APNT < 700 . , 550 .,-1,-4, -1,1) 

CALL  DECT < -500. ,0. ) 

CALL  ST AT  < -1 ) 

CALL  APNT <350. ,500. »-l »-5> 

CAL L TEXT < ' NETWORK  SYSTEM  ' ) 

CALL  APNT <700. ,450. , -1 ,-4> 

CALL  DECT (-21 4. ,0. ) 

CALI  APNT <4 14. ,450. ,-1,-4) 

CALL  DECT <-21 4. ,0. ) 

WRITF  THE  TEXT  ON  THF  DISTRIBUTION  SYSTEM. 

CALL  APNT <325. ,260., -1,-5) 

CALL  TEXT ( '208/120V  - 3',-1,'B','  - 4W') 

CALL  APNT  < 365 . , 238 .,-1,-5) 

CALL  TEXT < 'DISTRIBUTION' > 

CALL  STAT<1) 


l 486,450 
i 200,450 


DRAW  THF  REPRESENTATION  OF  SUBSTATTON-4  AND 
HU  TRANSMISSION  AS  ABOVE. 

'3- 

CALL  APNT <100. ,220. »-l ,-4,-1, 4) 

CALL  VFCT ( 700 . , 0 . ) 

CALL  APNT <365., 150., 1,-5, -4,1) 

CALL  SUBP <603)  ISIJBP!  SIJBST-4  SU 


n n n o non 
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CAl  l 

TEXT ( 'SUBSTATION-4' ) 

CALL 

ESUB 

CAL! 

APNT (750. .100, .-1.-4) 

CAl  l 

SUBP  < 621 » 620 ) 

• stibp: 

HBIJS  ST-4 

CAl  1 

APNT  < 100. .60. f-1 f-4f-1 f4 ) 

CAT  l 

UFCT ( 700 . .0. > 

CALL 

APNT <350. f 30 . f1f-5f-1f1) 

CALL 

SUSP (604. (SOI ) 

i subp: 

HUTRNS  SLI 

START  ON  RIGHT  SIDE  AND  IiR'AW  CIRCUITS  FROM  BOTTOM  TO  TOP. 


CALL  APN  T ( 700 . » 100. f-1 .-4.-1 » 1 > 
CALL  UFCT  ( 0 . . 50  . ) 

CALI  ROOT (-10. .0. t »-4> 


CALL  SUBP (27) 

CALL  CBCl.B  ( 4 > 

• subp : 

cl 

CB 

*7  ST-4 

CALL  ESLIB 

CAM  SIJBP  (127) 

CALL  CBOPN ( 4 ) 

CALL  ESLIB 

CALL  APNT (700. .170. 

f-1  .-4) 

i sijbp: 

OP 

CB 

17  ST-4 

CALL  SIJBP  (622) 

! sijbp: 

LWR  RT  TRANS 

CALL  UECT ( 0 . » 95 . ) 
CALL  TRANSF 

CALL  UECT (0.. 95.) 
CALL  ESUB 

1 700. 

265 

CALL.  RDOT( -10.  .0.  .- 
CALL  SIJBP  (20. 27) 

1.-4) 

! sijbp: 

Cl 

CB 

14 

CALL  SUBP (128. 127 ) 
CALL  APNT (700. .420. 
CAl L UECT ( 0 . . 160. ) 

f-1 .-4) 

i sijbp: 

OP 

CB 

*4 

CALL  ■ HOT (-10. .0. f- 
CALL  SUBP (29. 27) 

1.-4) 

i subp: 

CL 

CB 

*2 

CALL  SIJBP  ( 129. 127) 
CALL  APNT (700. .600. 

.-1.-4) 

i subp: 

OP 

CB 

#2 

CALL  SUBP (623. 622) 
CAl L ROOT (-10 . .0. . . 

-4) 

• subp : 

UP 

RT 

TRANS 

CALL  SI  IBP  (33. 27) 

i sijbp: 

CL 

CB 

*5  ST-6 

CAM  SUBP ( 133. 127) 
CAM  APNT (700. .850. 

f-1 .-4 ) 

i subp : 

OP 

CB 

#5  ST-6 

CALL  UECT ( 0. . 50 . ) 

i 500. 

900 

START  ON  LEFT  SI BE 

ANB  DRAW  CIRCUITS 

FROM  BOTTOM 

TO 

TOP. 

CALL  APNT ( 200. . 100. 
CALL  UECT ( 0. . 50 • ) 

.-1 .-4.-1  . 1 ) 

CAM  ROOT (-10. .0. . . 
CALL  SIJBP (26. 27) 

-4) 

i subp: 

Cl 

CB 

♦8  ST-4 

CALL  SUBP (126.1 27 ) 
CAM  APNT ( 200. .170 . 

f-1 .-4) 

• sijbp: 

OP 

CB 

*3  ST-4 

CALL  SIJBP  (624. 622) 

i subp : 

L UR  !_' 

T TRANS 

CALL  ROOT (—10. .0. .— 
CAl 1 SUBP (30. 27) 

1.-4) 

isubp: 

CL 

CB 

#3 

CALL  SIJBP  ( 130. 127) 
CALL  APNT (200. .420. 

f-1f-4) 

i subp: 

OP 

CB 

*3 

CALL  UECT ( 0. . 160. ) 
CAM  ROOT (-10..0.F- 
CAI  l SI JBP  (3 1.27) 

1.-4) 

isiibp: 

CL 

CB 

*1 

CAM.  SUBP (131.127) 
CALL  APNT (200. .600. 

F-1 f-4) 

isubp: 

OP 

CB 

*1 

CAM  SUBP (625 .622) 

isijbp: 

UP 

LT 

TRANS 

CALL  ROOT (—IO.fO.ff 
CALL  SUBP (32. 27) 

-4) 

isubp: 

CL 

CB 

#4  ST-6 

CALL  SUBP ( 132.127) 

isijbp: 

OP 

CB 

*4  ST-6 
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CAI I APNK200.  ,R50.  ,-l  ,-4> 

CAIL  VECT<0. ,50. ) ! 500*900 

DRAW  THE  ONE-LINE  REFRESENTAT  ION  OF  THE  MANHOI  E RING  DUS. 

CALL  APNT<411 . ,430. .-1,-4) 

CALL  CIRCLE<40. »-l .4.-1 ) 

DRAM  THE  REPRESENTATION  OF  THE  LOADS. 

CALL  AFNT<421 . .401 . »-l ,-4) 

CAt  1 VECT ( -21 . ,-21 . ) 

CALL  SIJBF-  ( A2A ) i SIJBF-:  LOAD  *1 

CALL  LOAD 
CALL  ESIJD 

CALL  APNT <479. ,401 . .-1.-4) 

CALI  VECT<21  . ,-21  . ) 

CALL  SUBP<A27. A2A)  1 SI  IDF' ! LOAD  *2  . 

WRITE  THE  TFXT  FOR  THE  ‘ARE  YOU  SURE’  DOIJDI  E CHECK 
FOR  LIGHT  PEN  HITS  DURING  THE  PROGRAM  RUN. 

CALI  SURF  < 90 ) IRUBPS  R U SURE 

CAI  I APNT <870. ,750. ,-l ,-5» 1 ) 

CALI  TEXT  < ' YOU  SURE?') 

DRAW  THE  ‘YES’  SUBPICTURE. 

CALL  SURF- < 9 1 ) ISURPI  CK  IE  YES 

CALL  APNT < 880 • ,700. , 1 ,-5,-1 ) 

CALL  TEXT < ' YES ' ) 

CALL  ESUR 

DRAW  THE  ’NO*  SUBPICTURE. 

CALL  SIJBF- < 92) 

CALL  APNT  < 950 . , 700 . , 1 , -5 , - 1 ) 

CALL  TEXT < 'NO') 

CALL  ESUB 
CALL  ESUR 

CALL  OEE  < 90 ) 

ADD  THE  MENU  SWITCH. 

CALL  APNT <930., 500., 1,-5) 

CALL  SURF- < AOS) 

CALL  TEXT <' MENU') 

CALL  ESUR 

PLACE  THE  DATA  TO  RF  MONITORED. 

CALL  STA  T < -1 ) 

CAI  I.  APNT  < 250  • , A40 . , -1 , -5 ) 

CALL  TEXT < 'I  INFS' > 

CALL  APNT <41A.,A40.»-l»-5) 

CALI.  TEXT < ' 1 ' ) 

CALL  APNT  <51A. ,A40. »-l ,-5) 

CALL  TEXT < ' 2 ' ) 

CALL  APNT < A1 A . , A40 . , - 1 » -5 ) 

CALL  TEXT  < ' 3 ' ) 

CALL  AF-NT  < 250 . , AOO  ..-1,-5) 

CALL  TEXT < 'VOLTS' ) 

CALL  APNT <250. »5A0. »-l ,-5> 

CALL  TEXT < 'AMPS') 

CALL  STAT<1 > 


T 


TALI  AF'NT  < 400  . fAOO.  f-1  f-5) 

CAL L NMBR < 959 f VOL  IS . 5 , ' < F5. 2 ) ' ) 

CALL  AF'NT  < 500  • fAOO.  f-1  f-5) 

(Alt  NMDR<9A0f  VOI  TSf 5 f ' < F5 . 2) ' > 

CAI  I ALN1 < AOO • • AOO . f-1 f-5) 

0 Al  I NMHK  < 9/>  1 . VOI  I R f 5 f ' < F5  . ? ) ' ) 

CAI  I AF'NT < 400 . f5A0.  f-If-5) 

CALI  NMHK < 942 f VOI  TS >5» ' <F5.2> ' > 

CALL  AFN F < 500 . f 5 AO , f - 1 f -5 > 

CALL  NMBR <9A3f VOLTS f5f ' (F5.2) ' ) 

CALL  AF'NT  < AOO . f560.  f -1  f -5) 

CALL  NMBR <9A4f VOLTS f5f ' (F5.2) ' ) 

CALL  AF'NT <740.  f070.  f-1  f-5) 

CALL  NMBR<?58fV0LTSf5f ' <F5.2> ' ) 

CALL  STAT(-l) 

CALL  TEXTU  VOLTS') 

CALL  STATU) 

CALL  AF'NT<740.  f 1 10.  f-1  f-5) 

CALL  NMF(R(950fV0LTSf5f  ' <F5.2)  ' ) 

CALL  STA T < — 1 ) 

CALL  TEXT ( ' VOLTS') 

SAVE  THE  PICTURE  IN  A FILE  CALLED  * NFTGYS . DF'Y  * . 

CALL  SAVE  < ' NETS YS . DP Y ' ) 

SLOP 

END 


THE  FOLLOWING  IS  THE  CONTENTS  OF  NETSYS.CMD* 


NETSYS/-CP  f T I ! /SH - NETSYS  f USPSUB f GL I D/I  B 
/ 

ASG=GRO 1 1 
// 
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THE  ■ INDLD. FTN*  FILE  CONTAINS  THE  FORTRAN  SOURCE  FOR  THE 
INDUSTRIAL  I OAD  DTSPL  AY  . EDIT  THE  F 1 1 E IJS I NS  THE  FRIT  UTILITY. 

IT  USFS  SUBROUTINE'S  CONTAINED  IN  THE  FILE.  • DSPSUB . FTN* , IF  THIS 
FILE  HAS  NOT  RFFN  PREVIOUSLY  COMPILED.  IT  MUST  DF  COMPILED  TOO. 

TO  COMPILE  WITHOUT  A SOURCE  LISTING.  TYPE • 

>FOR  INRLD=INDLD 

TO  COMPILE  WITH  A NUMBERED  SOURCE  LISTING,  TYPE: 

>FOR  INDLD=INDLD/LI : 1 

TO  TASK  BUILD  USING  THE  INDIRECT  COMMAND  FILE,  TYPE: 

>TKB  PINDLB 

THIS  CAUSES  A FILE,  ■ INDLD . OBJ*  , TO  DF  CREATED  BY  THE  ’FOR* 
COMMAND  AND  A FILE,  * INDLD. TSK* , TO  DF  CREATED  BY  IHF  1 TKB ■ COMMAND. 

THE  "P*  SYMBOL  INDICATES  THE  USE  OF  AN  INDIRECT  COMMAND  FILE.  THIS 
IS  FILE,  * INDLD.CMD* , AND  CONTAINS  THE  TASK  BUILDER  COMMANDS  NECESSARY 
TO  BUILD  THIS  TASK. 

TURN  ON  THE  VT-11,  THEN  BUILD  THE  DISPLAY  TO  BE  SAVED  BY  TYPING 
>RUN  INDLD 


IF  THE  ABOVE  SEOUENCF  IS  FOLLOWED  A NEW  FILE  IS  CREATED  CALI. ED 
•INDLD. DFY*  THAT  CONTAINS  THE  SAVED  DISPLAY. 

THE  FOLLOWING  IS  A LIST  OF  THE  SUBPICTURE  NUMBERS  FOR  THE 
INDUSTRIAL  LOAD  DISPLAY.  THE  FIRST  SET  CONTAINS  IHF  SUBPICTURt  NUMBERS 
THAT  WILL  BE  LIGHT  PEN  SENSITIVE.  THE  ORDER  DETERMINES  THE  ORDER 
OF  THE  COMPUTED  GO  TO  STATEMENT'S  ARGUME N IS  TN  THE  MAIN  PROGRAM. 

THE  REMAINDER  ARE  NOT  SENSITIVE  AND  ARE  FOR  COPYING  PURPOSES  ONLY. 


SUBPICTURE  NUMBERS 

701 

702 
70S 

704 

705 

706 

707 

708 


DESCRIPTION 

HV  TRANSMISSION  TEXT  FOR  SU 
SUBSTATION  4 TEXT  FOR  SW 
Vni.  TAGF  REGUI  ATOR  RAISE  ARROW 
VOLTAGE  REGULATOR  LOWER  ARROW 
S I A 1 1 ON  I TEXT  FOR  SW 
GENERATOR  1 TEXT  FOR  SW 
STATION  11  TEXT  FOR  SW 
MENU  TEXT  FOR  SW 


• 

720 

721 

722 

723 

724 


4 

LIGHTING  LOAD 
HEATING  LOAD 
POWER  #1  LOAD 
POWER  #2  LOAD 
REACTIVE  LOAD 
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PROGRAM  TO  DRAW  THE  INDUSTRIAL  LOADING  PICTURE. 

COMMON/DFILE/IBUF ( 1000) 

CALL  INI T< 1000) 

START  AT  THE  TOP  WITH  THE  REPRESENTATION  OF  THE  HU  TRANSMISSION 
AND  SUBSTATION  4 WHICH  PROVIDE  THE  SOURCE  AND  PROTECTION  FOR 
THIS  LINE. 

CALL  APNT ( 345 . » 950 . , 1 , -5 , ~1 , 1 ) 

CALL  SIJBP < 701  ) ISUBP!  HUTRANS  SU 

CALL  TEXT ( ' HU  TRANSMISSION') 

CALL  ESUB 

DRAW  DASHED  LINE  DEPICTION  OF  BOUNDARY  BETWEEN  HU  TRANSMISSION. 
SUBSTATION  4.  AND  INDUSTRIAL  LOAD. 


CALL  APNT  (800. ,940. .-1 .-4.-1 .4) 

CALL  VECT ( -700 . » 0 . ) ! 100., 940 

CALL  APNT< 100. ,780. ,-l ,-4) 

CALL  VECT ( 700 . , 0 . ) ! 800,780 

DRAW  BUS,  CIRCUIT  BREAKER,  AND  SWITCH  FOR  SUBSTATION  4. 


CALL 

APNT (350. ,900. 

,-1,-4, 

CALL 

HBUS  < 200 . , 5 ) 

CALL 

APNT (450. ,900. 

,-1,-4) 

CALL 

VECT<0. ,-50. ) 

CALL 

RD0T<-10. ,-20. 

,-1,-5) 

CALL 

SUBP (23) 

CALL 

CBCLD ( 4 ) 

CALL 

ESUB 

CALL 

SUBP < 123) 

CALL 

CBOF'N  ( 4 ) 

CALL 

ESUB 

CALL 

APNT  < 450 . ,830. 

,-1,-4) 

CALL 

VECT<0.  ,-100.  ) 

CALL 

APNT <530. ,830. 

,1,-5) 

CALL 

SUBP (702) 

! 450,850 

ISUBP:  CL  CB  *9  ST-4 

ISUBP!  OP  CB  #9  ST-4 


'subp:  st-4  su 


CALL  TEXT( 'SUBSTATION-4' ) 
CALL  ESUB 


DRAW  THE  DEPICTION  OF  THE  VOLTAGE  REGULATOR. 

C ALSO  INCLUDE  A SET  OF  ARROWS  THAT  WILL  BE  USED  TO 

C CHANGE  THE  OUTPUT  VOLTAGE  OF  THE  REGULATOR. 

C 

CALL  APNT<421 . ,700. ,-1,-4) 

CALL  CIRCL.E<30.  ,-l  ,4,-1 ) 

CALL  APNT < 443., A90.,- 1,-5) 

CALL  TEXT ( ' R ' ) 

CALL  APNT <550., 710., 1,-4) 

CALL  SUBP (703)  • SUBP 5 RAISE  REG  VOLT 

CALL  VECT (0., 30.) 

CALL  ARR0W1K  1 ,4,-1  ) 

CALL  ESUB 

CALL  APNT ( 550., A90.» 1,-4) 

CALL  SUBP (704)  ISUBP}  LOWR  REG  VOLT 

FAI  L VECT  < 0 . » -30 .,1,4) 

CALL  ARROUD< 1 ,4,-1 ) 

CALL  ESUB 

I 
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CONTINUE  WITH  THE  FEEDER,  TO  THE  TRANSFORMER. 

CALL  APNT <450. .400. ,-l ,-4) 

CALL  UECT < 0 . , 60  . > 

CALL  TRANSF 

CALL  VECT  < 0 . ,170. ) 

DRAW  THE  REPRESENTATION  OF  THE  CAPACITOR. 

CALL  APNT  <450. ,600. ,-l ,-4) 

CALL  VECT< 100. »0. ) 

CALL  UECT<0. , -30. ) 

CALL.  SUSP  <158)  ISIJBP:  CL  Sid  CAP 

CALL  SUCLU<4) 

CALL  ESUB 
CALL  OFF (158) 

CALL  SUSP (58) 

CALL  SWOPV (4) 

CALL.  ESUB 

CALL  APNT (550. ,550. ,-l ,-4) 

CALL  UECT  < 0 . , -50 . ) 

CALL  CAPCTR 
CALL  UECT<0. ,-30. > 

CALL  GND 

DRAW  THE  LIGHTNING  PROTECTOR. 

CALL  APNT <450. .550. »-l .-4) 

CALL.  UECT  < - 100 . . 0 . ) 

CALL  VECT <0. .-50. ) 

CALL  ROOT < 0. .-1 . ,-1,6) 

CALL  RDOT  < Q . » - 18 . ,-1,6) 

CALL  RD0T<0. ,-l . ,-l »-4> 

CALL  VECT  < 0 . , -20 . ) 

CALL  GND 

DRAW  THE  LOADS,  SWITCHES,  AND  TEXT. 


CALL  APNT <800. ,400. »-l ,-4 ) 

CALL  UEC,T  < -700 . , 0 . ) 

CALL  DECT <0. ,-150.  ) 

CALL  SUBP< 153,1 58 ) 'SUBP:  CL  SU  LTG  LD 

CALL  OFF <153) 

CALL  SUBP  <53, 58)  ' SI  IBP:  OP  Sid  LTG  LD 

CALL  APNT < 100. ,230. ,-1,-4) 

CALL  DECT <0. ,-30. ) 

CALL  SUBP <720)  ! SUPB ! LTG  LD 

CALL  LOAD 
CALL  ESUB 


CALL  APNT  < 275 • , 400 .,-1,-4) 
CALL  UECT<0. ,-150. ) 

CALL  SI  IBF-  < 154 , 158 ) 

CALL  OFF <154) 

CALL  SUBP <54, 58) 

CALL  APNI <275. ,230. ,-1,-4) 
CALL  UECT<0. ,-30. > 

CALL  SUBP <721 ,720) 


isubp:  cl  su  heat  ld 
i subp : op  sw  heat  ld 

I SUPB : LTG  LD 


CAIL  APNK537.  ,400.  ,-1,-4) 
CALL  VFCT<0. ,-100.  ) 

CALL  APNT <625., 300., -1,-4) 
CALL  VECT<-175. ,0. ) 
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CAI  1 VFCT<0. . -50.  ) 

TAIL  SUSP < 155, 158) 

CALI.  OFF  (155) 

CALL  SUSP < 55 » 58 ) 

CALL  APNT  < 450 • ,230. , -1.-4) 
CALL  VECT < 0 . » -30 • ) 

CALL  SUBF'  < 722 » 720  ) 


isubp: 

CL  SU 

PUR- 

*1 

LD 

isijbpj 

OP  SU 

PUR 

»1 

LD 

• sued: 

PUR  *1 

LD 

CALI  APNT  < 625 . >300. » -1 , - 4 ) 

CALL  VFCKO. ,-50. > 

CALL  SUBP<156,158>  'SIJBPS  Cl  SU  PUR  #2  LD 

CALL  OFF  USA) 

CALL  SUBP ( 5A * 58 ) 'SUFfp.*  OF  SU  PUR  #2  LD 

CALL  APNT <625. ,230. »-l>-4) 

CALL  VECT < 0 . » -30 . ) 

CALL  SUSP <723 .720)  'SUPBJ  PUR  *2  LD 


CALL  APNT <800. ,400. ,-l ,-4> 

CALL  VFCT<0. ,-150. ) ! 

CALL  SUSP <157,158)  'SUBP 5 CL  SU  LTG  LD  1 

CALI  OFF <15 7> 

CALL  SUSP <57, 58)  ' 81  IBP  5 OP  SU  STR  LD 

CALL  APNT <800. ,230. ,-1,-4 > 

CALL  VFCT  < 0 . , -30 • ) I 

CALL  SIJPP  < 724 , 720  ) 'SUPFO  RF ACT  LD  t 

URITF  TEXT  ON  LOADS. 

CALI.  SCAT <-l ) 

CALL  APNT <40. ,80. ,-1,-5) 

CALL.  TEXT < 'LIGHTING'  ) 

CALL  APNT <242. ,80. ,~1 ,-5> 

CALL  TEXT < ' HEAT ' ) 

CALL  APNT <502. ,80. ,-1,-5) 

CALL  TEXT < 'POWER' ) 

CALL  APNT <740. ,80. ,-t  »-5> 

CALL  TEXT < 'REACTIVE' > 

CAL  L APNT  < 50 . , 560 .,-1,-5) 

CALL  TFXT< 'INDUSTRIAL  DISTRIBUTION') 

CALL  S T A T < 1 ) 

URITF  THF  TEXT  FOR  THE  ‘ ARF  YOU  SURF*  DOUBLE  CHECK 
FOR  LIGHT  PEN  HITS  DURING  THF  PROGRAM  RUN. 


CALL 
CALI 
CAL  L 

SIJPP  (90) 

APNT <870. ,750. ,~1 ,-5» 1 ) 

IEXT < ' YOU  SURF7 ' ) 

i SI  IBP!  R IJ  SURF 

DRAW 

THE  " YES  * SUBPICTURE • 

CAI  L 
CALI 
CALL 
CALL 

SIIBP<91  ) 

AF'NT  < RRO  . ,700.  , 1 ,-5,-1  ) 

TEXT < 'YES' ) 

FSUB 

•SI  IBP!  CK  IF  YES 

DRAW 

THE  ’NO*  SUBPICTURE. 

CALL 
CAI  1 
CAL  L 
CALL 

SI  JBF'<  92 ) 

APNT <950. ,700. , 1 ,-5,-1 ) 

TEXT< 'NO' ) 

ESUB 

I 

1 

CALL 

ESUB 

% 

1 

CALL 

OFF < 90) 

1" 

onnnnn  non 


PLACE  THE  DATA  TO  PE  MONITORED. 

CALL  AF'NT  ( 200 . . B70  • * - 1 » -5 ) 

CAI  L NMPR< 950 f VOLTS f5f ' <F5.2> ' ) 

CALL  STAT(-l) 

CALL  TEXT < ' VOLTS') 

CALL  STAT  < 1 ) 

CALI  AF’NT  ( 200  . f700.  f -1 f-5) 

CALL  NMRft(951 f VOLTSf.  '<F5.2>'> 

CALL  STAT  < -1 ) 

CALL  TEXT ( ' VOLTS') 

CALL  STAT<1) 

CALL  APNT<200. fA50. f -1 f-5> 

CALL  NMBR < 95? » VOLTS f 5 » ' (F5.2)  ' ) 

CALL  STAT  < - 1 ) 

CALL  TEXT  < ' PF  ' ) 

CALL  STATU) 

CALL  APNT<200. ,600. f-1 f-5> 

CALL  NMBR( 953 f VOLTS, 5f ' (F5.2) ' ) 

CALL  STAT ( -I ) 

CALL  TEXT < ' AMPS') 

WRITE  A MFNII  OF  OTHER  PICTURES  TO  DF  USED. 

CALL  STATU) 

CALL  MENU  ( 9.10.  f 500.  f -50.  f 705  f 'STAT  1'f'REN  1 ' f ' STAT  1 1 ' f ' MENU ' ) 

SAVE  THE  PICTURE  IN  A FILE  CALLED  * INDL D . DPY • . 

CALL  SAVE! ' INDLD.DPY' ) 

STOP 

END 


THE  FOLLOWING  IS  THE  CONTENTS  OF  THE  INDLD.CMD  FILES 


THF  ‘STATU. FIN1  Fill  CONIATNS  IHF  FORTRAN  SOURCE  FOR  THF 
STATION  11  DISF'IAY.  F PT  T IHF  FTIF  USING  THF  Foil  1 1 T T I TTY. 

IT  DBFS  SUBROUT  TNFS  SON  I A INFO  IN  IHF  FTIF.  * HSPSI.IB . I IN".  IF  THIS 
FILF  HAS  NOT  KI  N PREVIOUSLY  COMPILED.  IT  MUST  BF  COMP IL  ED  TOO. 

TO  COMPILE  WITHOUT  A SOURCE  I TSTING.  TYPES 

>FOR  STAT 1 1=STAT1 1 

TO  COMPILE  WITH  A NUMBERED  SOURCE  LISTING.  TYPES 
>FOR  STAT11=STAT11/LI11 

TO  TASK  BUILD  USING  THE  INDIRECT  COMMAND  FILE.  TYPES 
>TKB  PSTATU 

THIS  CAUSES  A FILE.  ■ STAT1 1 . OB J * . TO  BF  CRFATED  BY  THF  * FOR  * 
COMMAND  AND  A FILE.  ■STATU.  TSK  • . TO  BF  CREATED  BY  THF  • TKB  * COMMAND. 
THE  *P*  SYMBOL  INDICATES  THE  USE  OF  AN  INDIRECT  COMMAND  FTIF.  THIS 
IS  FILE.  •STAT11.CMD*.  AND  CONTAINS  THE  TASK  BUILDER  COMMANDS  NECESSARY 
TO  BUILD  THIS  TASK. 

TURN  ON  THE  VT-U.  THEN  BUILD  THE  DISPLAY  TO  BE  SAVED  BY  TYPING 
>RUN  STATU 


TF  THE  ABOVE  SEQUENCE  IS  FOLLOWED  A NFW  FILF  IS  CRFATED  CALLED 
•STATU.  DFY  ‘ THAT  CONTAINS  THE  SAVED  DISPLAY. 

THE  FOLLOWING  IS  A LIST  OF  THF  SUBPTCTURE  NUMBERS  FOR  THE 
STATION  11  DISPLAY.  THE  FIRST  SET  CONTAINS  THE  SUBPICTURE  NUMBERS 
THAT  WILL  BE  LIGHT  PEN  SENSITIVE.  THE  ORDER  DETERMINES  THE  ORDER 
OF  THE  COMPUTED  GO  TO  STATEMENT'S  ARGUMENTS  IN  THE  MAIN  PROGRAM. 

THE  REMAINDER  ARE  NOT  SENSITIVE  AND  ARE  FOR  COPYING  PURPOSES  ONLY. 


SUBPICTURE  NUMBERS 
801 
802 

803 

804 

805 
BOA 
807 


DESCRIPTION 

TOP  HV  TRANSMISSION  TEXT  FOR  SW 
BOTTOM  HV  TRANSMISSION  TFXT  FOR  SW 
VOLTAGE  REGULATOR  RAISE  ARROW 
VOLTAGE  REGULATOR  L OWER  ARROW 
STATION  t TFXT  FOR  SW 
GENERATOR  1 TEXT  FOR  SW 
MENU  TEXT  FOR  SW 
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PROGRAM  TO  DRAW  THE  STATION  11  PICTURE. 

COMMON/IiF  ILF / 1 BUF'  ( 1000) 

CALL  INI T ( 1 000 ) 

START  WITH  ALL  HORIZONTAL  LINES  BEGINNING  AT  THE  TOP 
HV  TRANSMISSION  SWITCH. 


CALL  AF’NT  < 340  • » 950  • » 1 » -5 » - 1 » 1 ) 

CALL  SUBF'<  (301  ) 'SUBP1  HVTRNS  SU 

CALL  TEXT  < ' HU  TRANSMISSION') 

CALL  ESUB 

CALI  AF’NT  < BOO  • »940.  f-1  f-4,-1  .4) 

CALL  DECT < -700. ,0. ) 

CALL  STAT<-1) 

CAL  L AF’NT  < 30 . * 900 . , -1 1 -5 » -1  » 1 ) 

CALL  TEXT< ' INTERCONNECTION'  ) 

CALL  APNT <305. .900. f-1 f -5) 

CALL  TEXT ( 'E10-1 1 ' ) 

CALL  AF’NT<505.  » 900 . » -1 » -5 ) 

CALL  TEXT  < 'F10-11 ' ) 

CALL  AF’NT  < 668 . » 840 . f-lf-1  ) 

CALL  TEXT ( ' PEAK  LOAD  *') 

CALL  AF’NT  <690.  .810.  * -1  » -1  ) 

CALL  TEXT < ' FMER  GEN') 

CALL  APNT  < 250 . » 700 . . -1 . -1 ) 

CALL  DECT < 100. .0, ) 

CALL  ROOT ( 1 00 . .0 . » . -1 ) 

CALL  DECT  < 100 . » 0 . ) 

CALL  ROOT <100. .0...-1) 

CALL  VECT< 100. .0. ) 

CALL  APNT  < 50 . » 550 . . -1 .-1 ) 

CALL  DECT < 1 00 . » 0 , ) 

CALL  ROOT  < 0 . » -50 . . . -4 ) 

CALL  HBUS < 600 . .5 ) ! BRIGHT  BUS 

call  uect<o. .-300. r-i .4) 

CALL  RD0T<0. .50. f-lf-1) 

CALL  VECT<-100. .0. ) 

CALL  RD0T<0.»1 50. f-lf-1) 

CALL  HBUS < -600. fl)  ! DIM  BUS 

CALL  RD0T<0. f-150. f-1 f-1 ) 

CAI  L VECT< 100. fO. ) 

CALL  AF’NT <375.  .300.  f-1  f -5) 

CALI.  TEXT<  'STATION-11  ' ) 

CALL  AF’NT  < 110.  f 80.  f-1  f -5) 

CALL  TEXT < 'Cl-11 ' ) 

CALI  AF’NT<710.  .80.  f-1  f-5) 

CALL  TEXT < 'Dl-11 ' ) 

CALL  STAT  < 1 > 

CALL  APNT <800. » 60 . . -1 . -A . -1 f 4 ) 

CALL  DECT  < -700 . f 0 . ) I LOWER  DASHED  LN 

CALL  AF’NT<340.  .30..  1.-5.-1. 1) 

CALL  SUFP<802>  'SUBP1  HVTRNS  SW  LWR 

CAI  L TEXT  < ' HU  TRANSMISSION') 

CALL  ESUB 

DRAW  THE  VERTICAL  LINES  STARTING  WITH  LINE  Cl-11 
AND  WORKING  UPWARD. 

CALL  AF’NT<150. .120. f-1. -4.-1. 1) 
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CALL  ARROUU < -1 , 4 » -1 > 

CALL  VECT<0.»60.) 

CALL  RD0T<-10. ,0. *-l ,-4) 
CALL  SURF'  (14) 

CALL  CRCLIK4) 

CALL  ESUR 
CALL  SURF'  (114) 

CALL  CROF'N  ( 4 > 

CALL  ES1JR 

CALL  AF'NT<150.  ,200.  ,-1,-4) 
CALI.  VECT  < 0 . > 390 . ) 

CALL  TRANSF 
CALL  VECT ( 0 . , AO . ) 

CALL  AF'NT < 125.  ,715.  , -1  »-4) 
CALL  CIRCLE  < 25 . , -1 , 4 , -1 ) 
CALL  AF'NT  < 143.  ,705.  , »-5) 
CALL  TEXT < ' R ' > 

CALL  AFNT<210. ,730. ,1 ,-4> 
CALL  SURF' (803) 

CALL  DECT ( 0 . , 30 . ) 

CALL  ARROUU < 1 ,4,-1 ) 

CALL  ESUR 

CALL  AF'NT  <210.  ,710.  ,1  ,-4> 
CALL  SURF' (804) 

CALI.  VECT <0. ,-30. ) 

CALL  ARROUIK  1 ,4,-1 ) 

CALL  ESUR 

CALL  AF'NT < 150.  ,740.  ,-l  ,-4) 
CALL  VECT ( 0 . , AO . ) 

CALL  ROOT (-10. ,0.-1, -4) 
CALL  SURF'  (13,14) 

CALL  SURF'  (113,114) 

CAI  l AF'NT(  150.  ,820.  ,-l  ,-4) 
CALL  DECT ( 0 . ,60.  ) 

CALL  ARROUIK  -1 ,4,-1 ) 


•SURF-:  CL  CR  Cl- It 

'SURF:  OF'  C.R  Cl-11 


i F'R  FOR  ARROWS 
! SURF'S  RAISE  REO  VOLT 


i SURF' : LUR  RFC  VOLT 


i SURF' : CL  CP  I NT  CON 
! SURF'S  OF'  CR  INT  CON 


CONTINUF  WITH  F10-11,  ROUNUARD. 


CALL 

AF'NT  <350.  ,880.  ,-l, 

-4) 

CALL 

ARROUU (-1 ,4,-1 ) 

CALI 

VECT<0. , -60. ) 

CALL 

ROOT (-10. ,-20. ,-l , 

-4) 

CAI  L 

SURF'  (17,14) 

' SURF' : CL 

CR 

E10-11 

CALL 

SURF'  ( 117,114) 

1 SURF'S  OF' 

CR 

E 10- 1 1 

CALL 

AF'NT  ( 350 . ,800.  ,-l , 

-4) 

CALL 

VECT ( 0 . ,-300. ) 

CALL 

AF'NT  < 550  . , 500 . , -1  , -4 ) 

CALL 

VECT <0. ,300. ) 

CALL 

ROOT (-10. ,0. ,-l ,-4) 

CALL 

SURF'  (16,14) 

! SURF'S 

CL. 

CR 

F10-11 

CALL 

SUF<F'  (116,114) 

'SURF'S 

OF' 

CR 

F10-1 1 

CALL 

AF'NT < 550 . ,820.  ,-l  ,-4) 

CALL 

VECT ( 0 . ,60. ) 

CALL 

ARROW!)  (-1 ,4,-1 ) 

FINISH  LINE  Dl-1 1 . 

CALI  AF'NT <740.  ,180.  ,-t  ,-4) 
CALL  SURP (15,14) 

CALL  SURF' (115,114) 

CALI  AF'NT <750.  ,180.  ,-1,-4) 
CALL  VFCT(0. ,-60. ) 

CALL  ARR0WU(-1 ,4,-1 ) 


'SURF':  CL  CR  R1 -11 
' SURF'S  OP  CR  Dl-11 


C 
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CONTINUr  WITH  THF  MANUAL  , HIM  COMPONENTS. 

START  WITH  THF  F'EAK  LOAD  ANIi  EMERGENCY  GENERATOR  AND 


WORK 

TO  THE  LEFT. 

CAI  L 

APNT ( 776 . .765. .-1.-4) 

CAt  l 

CIRCl E<75. .-1 , 1 .-1 ) 

CALL 

APNT < 74.? . .755.  .-1  .-1  ) 

CALI 

TEXT! 'A' ) 

CALL 

APNT <750. ,740. ,-1.-1) 

CALL 

VECT  < 0 . ,-740. ) 

CALL 

APNT (650. ,700. .-1 ,-l  ) 

CALL 

UECT  < 0 . ,-BO. ) 

CALL 

SUBP< 165) 

isubp: 

cl 

SW 

EMFR  GEN 

CALL 

SWCLV  < 1 ) 

CALL 

ESUB 

CALL 

OFF< 165) 

CALL 

SUBF'  < 65 ) 

' sijbp: 

OF' 

sw 

EMER  GEN 

CALL 

SWOPU(l) 

CALL 

ESUB 

CALL 

AF'NT  < 650 . ,600. ,-l ,-l ) 

CALL 

VECT  < 0 . , -260 . ) 

CALL 

SUBF'  (166,165) 

'SUBF'! 

CL 

SW 

Dl-1 1 

CALL 

OFF ( 166) 

CALL 

SUBF' <66, 65) 

isubp: 

OP 

sw 

Pl-1 1 

CALL 

APNT ( 650 . , 320 • ,-1,-1 ) 

CALL 

UECT(0. ,-70. ) 

CONTINUE  WITH  MANUAL  CONNECTION 

TO  ElO-ll . 

CALL 

AF'NT  ( 450  • , 700  .,-1,-1 ) 

CALL 

VECT(0. ,-80. ) 

CALL 

SUBP (167,165) 

isubp: 

CL 

sw 

F10-11 

CALL 

OFF (147) 

CALL 

SUBP <67, 65) 

isubp: 

OF' 

sw 

F10-U 

CALL 

AF'NT  < 450 . .600.  ,-l  ,-l  ) 

CALL 

UECT  < 0 . , -200 . ) 

CONTINUE  WITH  MANUAL  CONNECTION  TO  E10-11. 


CALL 

CALL 

CALL 

AF'NT  < 250  . ,700.  ,-l  ,-l ) 
VECT ( 0 . ,-80. ) 

SUBF'  < 168,165) 

•SUBP! 

CL 

SW 

E10-1 1 

CALL 

CALL 

OFF ( 168) 

SUBP <68, 65) 

' SUBF' : 

OF' 

SW 

ElO-ll 

CALL 

CALL 

AF'NT  < 250 . ,600.  ,-l  ,-l  ) 
UECT ( 0 . , -200 . ) 

CONTINUE  WITH  MANUAL  CONNECTION  TO  C1-11  ANH  INTERCONNECTION. 


CALL  APNT <50. ,550. ,-1,-1) 
CALL  UECT ( 0 . * -70 . ) 


CALL 

SUBF'  <169,1 65 ) 

I SUBF-: 

cl 

sw 

ElO-ll 

CALL 

OFF< 169) 

CALL 

SUBP  < 69 , 65 ) 

I subp: 

OF' 

sw 

ElO-ll 

CALL 

AF'NT  ( 50 . ,460.  , - 1 , -1  > 

CALL 

UECT  < 0 . , -120 . ) 

CALL 

SUBF' < 170, 165) 

• sijbp: 

CL 

sw 

Cl -1 1 

CALL 

OFF < 170) 

CALL 

SUBP (70,65) 

isubp: 

OP 

sw 

Cl-U 

CALL 

AF'NT  < 50 .,320.  ,-1,-1  ) 

CALL 

UECT  < 0 . , -70 . ) 

WRITE  THE  TEXT  FOR  THE  * ARE  YOU  SURE'  DOUBLE  CHECK 
EOR  LIGHT  PEN  HITS  BUR I NG  THE  PROGRAM  RUN. 


CALL  SUSP (90)  isubp:  R U SURE 
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CALL.  APNMR70.  » 750.  1,-5  .1 ) 

CALL  TEXT ('YOU  SURE?') 


DRAW  THE  •YES’  SUBPICTURE. 

CALL  SUBP < 91 ) 'SUSP:  CK  IP  YES 

CALL  APNT ( 880 . . 700 . » 1 » -5 » -1 > 

CALL  TEXT ('YES') 

CALL  ESUB 

DRAW  THE  ‘NO1  SUBPICTURE. 

CALL  SUBP (92) 

CALL  APNT (950..700.»l»-5»-l) 

CALL  TEXT! 'NO') 

CALL  ESUB 

CALL  ESUB 

CALL  OFF (90) 

PLACE  THE  BATA  TO  BE  MONITORED. 

CALL  APNT(0. .725. .-1 .-5) 

CALL  NMBR (946. VOLTS . 5 . ' (F5.2) ' ) 

CALL  STAT(-l) 

CALL  TEXT ( ' O') 

CALL  STAT(l) 

CALL  APNT  ( 0 . » <475 . » -1 » -5 ) 

CALL  NMBR ( 947 . VOLTS » 5 » ' (F5.2) ' ) 

CALL  STAT(-l) 

CALI  TEXT ( ' HZ') 

CALL  STATU) 

CALL  APNT (0. .625. .-1.-5) 

CALL  NMBR ( 948 . VOLTS , 5 , ' ( F5 . 2 ) ' ) 

CALL  STAT(-l) 

CALL  TEXT ( ' A') 

CALL  STATU  ) 

CALL  APNT ( 2A5 . . 460 . . -1 » -5 ) 

CALL  NMBR ( 9A5 . VOLTS . 5 . ' ( F5 . 2 ) ' ) 

CALL  STAT(-l) 

CALL  TEXT ( ' VOLTS') 

CALL  STATU) 

ADD  THE  MENU  OF  OTHER  PICTURES. 

CALL  MENU ( 930 . . 500 . . -50 . . 805 . ' STAT  1 ' . ' PEN  \ ' . ' MENU ' > 

SAVE  THE  PICTURE  ON  A FILE  CALLED  ’ STAT 1 1 . DPY ‘ . 

CALL  SAVE ( 'STAT11 . DPY ' ) 

STOP 

END 


THE  FOLLOWING  IS  THE  CONTENTS  OF  FILE.  STATU. CMDJ 


STAT 1 1/-CP.TI S /SH=STAT1 1 . DSPSUB. GLIB/LB 

/ 

ASG=GRO ! 1 

' f 

I 
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FILE  CONTAINS  IMF  FORTRAN  SOURCE  FOR  THE 
EDIT  THE  FILE  UR I NR  THF  EDIT  UTILITY. 


IT  USES  SUBROUTINES  CONTAINED  IN  THE  FILE*  * DSF'SI.IB . FTN * . IF  THIS 
FILE  HAS  NOT  BEEN  PREVIOUSLY  COMPILED.  IT  MUST  BE  COMPILED  TOO. 

TO  COMPILE  WITHOUT  A SOURCE  LISTING,  TYPE: 

>FOR  GEN1=GEN1 


TO  COMPILE  WITH  A NUMBERED  SOURCE  LISTING,  TYPE: 

>FOR  GEN1=GEN1/Li:i 

TO  TASK  BUILD  USING  THE  INDIRECT  COMMAND  FILE,  TYPE: 

>TKB  0GEN1 

THIS  CAUSES  A FILE,  * GEN1  . OB.J ■ , TO  BE  CRFATED  BY  THE  ■FOR' 
COMMAND  AND  A FILE,  *GEN1  . TSK  ■ , TO  BE  CREATED  BY  THE  'TR'D*  COMMAND. 

THE  ■!»*  SYMBOL  INDICATES  THE  USE  OF  AN  INDIRECT  COMMAND  FILE.  THIS 
IS  FILE,  ■GEN1.CMD",  AND  CONTAINS  THE  TASK  BUILDER  COMMANDS  NECESSARY 
TO  BUILD  THIS  TASK. 

TURN  ON  THE  VT-11,  THEN  BUILD  THE  DISPLAY  TO  BE  SAVED  BY  TYPING: 
>RU N GEN1 

IF  THE  ABOVE  SEQUENCE  IS  FOLLOWED  A NEW  FILE  IS  CREATED  CALLED 
•GEN1.DPY*  THAT  CONTAINS  THE  SAVED  DISPLAY. 

THE  FOLLOWING  IS  A LIST  OF  THE  SUBPICTURE  NUMBERS  FOR  THE 
GENERATOR  l DISPLAY.  THE  FIRST  SET  CONTAINS  THE  SUBPICTURE  NUMBERS 
THAT  WILL  BE  LIGHT  PEN  SENSITIVE.  THE  ORDER  DETERMINES  THE  ORDER 
OF  THE  COMPUTED  GO  TO  STATEMENT'S  ARGUMENTS  IN  THE  MAIN  PROGRAM. 

THE  REMAINDER  ARE  NOT  SENSITIVE  AND  ARE  FOR  COPYING  PURPOSES  ONLY. 


SUBPICTURE  NUMBERS 
1001 
1002 

1003 

1004 

1005 
100A 

1007 

1008 


DESCRIPTION 

HV  TRANSMISSION  TEXT  FOR  SW 

SYNCRN  TEXT  FOR  SW 

STATION  1 TEXT  FOR  SW 

STATION  11  TEXT  FOR  SW 

MENU  TEXT  FOR  SW 

GENERATOR  1 VOLTAGE  RAISE  ARROW 

GENERATOR  1 VOLTAGE  LOWER  ARROW 

GENERATOR  1 FREQUENCY  RAISE  ARROW 
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PROGRAM  TO  DRAW  THE  GENERATOR  1 STATION. 

COMMON/DFILE/IBUF ( 1000) 

CALL  INI T < 1000 ) 

START  AT  THE  SECTION  OF  THE  RING  BUS. 

CALL  APNT <300. , 1020. »-l »-4) 

CALL  VBUS (-10. » 5 ) 

CALL  ROOT <0. ,-10. ,-1,-5) 

CALL  VBUS (-10. » 5 ) 

CALL  ROOT < 0., -10. » -1,-4) 

CALL  VBUS< -30 . » 5 ) 

CALL  ROOT ( -1 . » -1 , , -1 ,-4 ) 

CALL  HBUS ( 50 . , 5 ) 

CALL  ROOT ( 10. , 0. »-l ,0-4) 

CALL  HBUS  < 10 . , 5 > 

CALL  ROOT <10. ,0. ,-1,-4) 

CALL  HBUS < 10 . ,5 ) 

CALL  STAT(-l) 

CALL  APNT  < 350 . , 980 . > - 1 » -5  > 

CALL  TEXT < 'RING  BUS') 

CALL  STAT<1 > 

BRAUI  THE  HV  TRANSMISSION  SWITCH  WITH  DASHED  LINE. 

CALL  APNT  < 500 .,910. ,1,-5) 

CALL  SUBP(iOOl)  ISUBP:  HVTRNS  SW 

CALL  TEXT ( ' HU  TRANSMISSION') 

CALL  ESUB 

CALL  APNT <800. , 900 . , -1 , -4 , -1 , 4 ) 

CALL  VECT ( -700 . , 0 . ) 

DRAW  THE  CONNECTION  LINE  Gl-3  AND  GENERATOR  1. 

CALL  APNT < 266 • ,365. »-l ,-4,-l»l) 

CALL  CIRCLE <35.»-l,4»-l) 

CALL  APNT <293. ,355. > -1.-5) 

CALL  TEXT  < ' 1 ' ) 

CALL  APNT  < 300 . , 400 .,-1,-4) 

CALL  VECT  ( 0 . » 80 . ) 

CALL  TRANSF 
CALL  VECT < 0 . » AO . ) 

CALL  ROOT <-10,»0.,-l»-4) 

CALL  SUBP < 6 ) ISUBP:  CL  CB  GEN  1 

CALL  CBCLIK4) 

CALL  ESUB 

CALL  SUBP <106)  ISUBP:  OP  CB  GEN  1 

CALL  CBOPN  < 4 ) 

CALL  ESUB 

CALL  APNT < 300 . *600. » - 1 » -4 ) 

CALL  VECT  < 0 . » 348 . ) 

WRITE  Al  l.  THE  TEXT  EOR  GENERATOR  ONE. 

CALI  APNT <200. ,290. ,-l ,-5) 

CALL  STAT  < -1 ) 

CALL  TEXT< 'PRIME  MOVER') 

CALL  APNT <200. .260. ,-l,-5) 

CALL  TEXT < 'EXCITATION' ) 
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CALI  AF'NT<?00. ,220. ,-l .-5) 

CALL  TE  XT  < 'VOLTAGE  AMPS') 

CALL  AF’NT  ( 290  . » 180 .,1,-4) 

CALL  SUBP (1006) 

CALL  VECT<0.,30.) 

CALL  ARROUU (1»4»-1) 

CALL  ESUB 

CALL  AF'NT <290.  ,170.  ,1,-4) 

CALL  SUBF'  < 1007 ) 

CALL  VECT <0. ,-30. ) 

CALL  ARROUD (1,4,-1) 

CALL  ESUB 

CALL  AFNT<375. ,150. ,-1,-5) 

CALL  TEXT <'P.F.'> 

CALL  APNK215.  ,100.  ,-1,-5) 

CALL  TEXT ('FREQ') 

CALL  AF'NT  < 290 . , 60  .,1,-4) 

CALL  SUBP( 1008, 1006) 

CALL  AF'NT  ( 290  • , 50  .,1,-5) 

CALL  SUBP< 1009, 1007) 

CALL  AF'NT  < 385 . , 80 , , -1 , - 5 ) 

CALL  TEXT ( ' KU ' ) 

CALL  STAT(l) 

DRAW  THE  PRIME  MOVER  ANIi  EXCITATION  SUITCHFS  FOR  GENERATOR  1. 

CALL  AFNT(390. ,290. ,1,-5) 

CALL  SUBP (151)  ISIJBP:  GFN  1 DC  SUP  ON 

CALL  TEXT ('ON') 

CALL  ESUB 
CALL  OFF (151) 

CALL  SUBF’ ( 51 ) fSUBPJ  GEN  1 DC  SUP  OFF 

CALL  TEXT ( f OFF ' ) 

CALL  ESUB 

CALL  AF'NT <390.  ,260.  ,1  ,-5> 

CALL  SUBP( 152, 151 ) !SUBP!  GEN  1 EXCI 

CALL  OFF ( 152 ) 

CALL  SUBP  ( 52 , 51 ) ! SIJBP  : GEN  3 FXCIT  OFF 

PLACE  THE  DATA  TO  BE  MONITORED  IN  CORRECT  POSITION. 


isurp:  raise  volt  gen  > 

• subp:  lur  volt  gen  i 


! SI  IBP!  RATSF  FRFQ  GFN  1 
• SUBP:  I.  UR  FREQ  GEN  1 


CALL  STAT(1 > 

CALL  AF'NT (200.,  165., -1,-5) 

CALL  NMBR (931, VOLTS , 5 , ' (F5.2) ' ) 

CALL  AF'NT (200.  ,45.  ,-l  ,-5) 

CALL  NMBR <932, VOLTS, 5, ' (F5.2) ' ) 

CALL  APNT< 360. ,190. ,-1,-5) 

CALL  NMBR ( 933 , VOLTS ,5, ' (F5.2)  ' ) 

CAIl  APNT<360. ,120. ,-1,-5) 

CALL  NMBR (934, VOLTS, 5, ' (F5.2) ' ) 

CALL  AF'NT (360.  ,50.  ,-1,-5) 

C ALL  NMBR (935, VOLTS, 5, ' (F5.2)  ' ) 

WRITE  THE  TEXT  FOR  THE  * ARF  YOU  SURE*  DOUBLE  CHECK 
FOR  I TOUT  PEN  HITS  DURING  THE  PROGRAM  RUN. 

CALL  SUBP  (90)  ! SI  IBP  5 R IJ  SURE 

CALL  AF'NT  ( 870 . , 750  • »-l » -5»  1 > 

CALL  TEXT ('YOU  SURE?') 

DRAW  THE  * YES  * SUBPICTURE. 

CALL  SUBP (91)  • SUBP • CK  IF  YES 

CALL  APNT<880. ,700. ,1, -5,-1) 

CALL  TEXT ('YES') 

CALL  ESUB 
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I 


ono  n n n non  nnnnn  no 


T 


* 

DRAW  THE  * NO ' SUBPICTURE . J 

1 

CALL  SUBP (92) 

CALL  APNT ( 950 . » 700 . » 1 » -5 ,-l ) 

CALL  TEXT ('NO')  < 

CALL  ESUB 

CALL  ESUB 

CALL  OFF  < 90 ) 

WRITE  BATA  ON  THE  RIGHT  SI BE  OF  PICTURE. 

CALL  STAT(-l) 

CALL  APNT ( 600 . >700. » -1 « -5 ) 

CALL  TFXT('***  BATA  ***') 

CALL  APNT <600. » 660 . , -1 » -5 ) 

CALL  TEXT( 'GEN  2' ) 

CALL  APNT<650. ,620. , -1.-5) 

CALL  STAT(l) 

CALL  NMBR < 936 » VOLTS » 5 , ' (F5.2) ' ) J 

CALL  STAT(-l) 

CALL  TEXT < ' VOLTS') 

CALL  APNT < 650 . » 580 . » -1 » -5 ) 

CALL  ST AT ( 1 ) 

CALL  NMBR (937, VOLTS, 5, ' <F5.2) ' ) 

CALL  STAT(-l) 

CALL  TFXT < ' H7') 

CALL  APNT (650. >540. ,-l »-5> 

CALL  ST AT ( 1 ) 

CALL  NMBR <940. VOLTS. 5. ' (F5.2) ' ) 

CALL  STAT(-l) 

CALL  TEXT ( ' KW' ) 

WRITE  THE  BATA  FOR  GEN  3. 

CALL  APNT <600. ,460. .-1.-5) 


CALL  TEXT ('GEN  3') 

CALI  APNT <650. ,420. »-l ,-5> 

CALL  STAT(l) 

CALL  NMBR<941 .V0LTS.5, ' (F5.2) ' ) 

CALL  STAT(-l) 

CALL  TEXT < ' VOLTS') 

CALL  APNT (650. ,380. ,-1,-5) 

CALL  STAT<1> 

CALI  NMBR (942, VOLTS, 5, ' (F5.2) ' ) 

CALL  STAT(-l) 

CALL  TEXT ( ' HZ') 

CALL  APNT (650. ,340. ,-1,-5) 

CALL  STATU) 

CALL  NMBR <945, VOLTS, 5, ' (F5.2) ' ) 

CALL  ST  AT  < - 1 ) 

CALL  TEXT ( ' KW') 

WRITE  THE  BATA  FOR  INTERCONNECTION. 


CALL  APNT <600. ,260. ,-l ,-5> 

CALL  TEXT < ' INT  CON' ) 

CALL  APNT <650., 220., -1,-5) 

CALL  STATU) 

CALL  NMBR < 946 , VOL TS , 5 , ' ( F5 . 2 ) ' ) 
CALL  STAT(-l) 

CALL  TEXT ( ' VOLTS') 
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CALL  AF'NT  < AT>0  > . 1 80  >»-li  -5 ) 

CALL  STAT<1) 

CALL  NMBR ( 947 1 VOLTS  > 5 r • <F5.2) ' ) 

CALL  RTAT(-l) 

CALL  TEXT < ' H7') 

CALL  AF'NT  < .?00 . » 355 . » - 1 , -5  > 

CALL  TEXT  < ' GEN ' ) 

CALL  STATU) 

CALL  AF'NT  < 350  • ? 850 . » - 1 » -5 ) 

CALL  NMBR  < 967 * VOLTS » 5 r ’ (F5.2)  ' ) 

CALL  STAT(-l) 

CALL.  TEXT ( ' VOLTS') 

CALL  STATU) 

ADD  THE  MENU  FOR  SWITCHES  FOR  OTHER  PICTURES. 

CALL  MENU <930.  >500.  *-50. » 1002»  ' SYNCRN ' » 'STAT  L ' , 'STATU  ' . ' MFNIJ ' ) 

SAVE  THE  PICTURE  IN  A FILE  CALLED  'GENl.DPY'. 

CALL  SAVE< 'GEN1 .DPY' ) 

STOP 

END 


THE  FOLLOWING  IS  CONTAINED  IN  THE  FILEr  GEN1.CMD: 


GEN1/-CF' » TI 2 /SH=GEN1  »DSF'SUB>GLIB/LB 
/ 

ASG=GROJ 1 
// 
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THF  'SYNCRN. FTN*  AND  • SYRFST  . FTN ■ Fit  F S CONTATN  THF  FORTRAN 
SOIJRCF  FOR  THE  SYNCHRONIZING  DISPLAY.  EDIT  THF  FTI  FS  USING  THF  FRIT 
UTILITY.  THESE  FILES  USE  SUBROUTINES  CONTAINED  TN  A FILE  CALLER 
■ DSPSUR .FTN * • IF  THIS  FILE  HAS  NOT  KEEN  PREVIOUSLY  COMPILED* 

IT  MUST  PF  COMPILER  TOO. 

TO  COMPILE  WITHOUT  A SOURCE  LISTING.  TYPE  J 


>FOR  SYNCRN=SYNCRN 

ANR  THEN  >FOR  SYREST=SYREST 


TO  COMPILE  WITH  A NUMRERER  SOIJRCF  LISTING.  TYPE: 


AND  THEN 

TO 


>FOR  SYNCRN=SYNCRN/LIJ1 
>FOR  SYREST=SYREST/Li:i 

TASK  BUILD  USING  THE  INDIRECT  COMMAND  FILE.  TYPE : 


>TKB  PSYNCRN 


THIS  CAUSES  FILES.  • SYNCRN . OBJ ■ ANR  ■ SYRFST . OB J * . TO  BE  CREATED 
BY  THE  •FOR*  COMMAND  AND  A FILE.  'SYNCRN. TSK * . TO  PE  CRFATED  BY 
THE  *TKB*  COMMAND.  THE  '<?'  SYMBOL  INDICATES  THE  USE  OF  AN  INDIRECT 
COMMAND  FILE.  THIS  IS  FILE.  * SYNCRN.CMD* » AND  CONTAINS  THE  TASK  BUILDFR 
COMMANDS  NECESSARY  TO  BUILD  THIS  TASK. 

TURN  ON  THE  VT -11  AND  BUILD  THE  DISPLAY  TO  PE  SAVED  BY  TYPING: 

>R UN  SYNCRN 

IF  THE  ABOVE  SEQUENCE  IS  FOLLOWED.  A NEW  FILE  IS  CREATED  FAILED 
' SYNCRN. DPY*  THAT  CONTAINS  THE  SAVED  DISPLAY. 
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THE  FOLLOWING  IS  A LIST  OF  THE  SUSP TO TUFF  NUMBERS  FOR  THE 
SYNCHRONIZING  DISPLAY.  THE  FIRST  SFT  CONTAINS  THE  SUBPTCTIIRE  NIJMBFRS 
THAT  WILL.  BE  LIGHT  PEN  SENSITIVE.  THE  ORDER  DETERMINES  THE  ORDER 
OF  THE  COMPUTED  GO  TO  STATEMENT'S  ARGUMENTS  TN  THE  MAIN  PROGRAM. 

THE  REMAINDER  ARE  NOT  SENSITIVE  AND  ARE  FOR  COPYING  PURPOSES  ONLY. 


SUBPICTURE  NUMBER- 


DESCRIPTION 


1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 
1111 
1112 

1113 

1114 

1115 

1116 

1117 

1118 
1119 


GEN  1 VOl TAGF  RAISE  ARROW 
GEN  1 VOl.  TAGF  I OVER  ARROW 
GEN  1 FREQUENCY  RATSE  ARROW 
GEN  1 FREQUENCY  LOWER  ARROW 
GEN  2 VOLTAGE  RAISE  ARROW 
GEN  2 VOl,  TAGF  LOWER  ARROW 
GEN  2 FREQUENCY  RATSE  ARROW 
GEN  2 FREQUENCY  LOWER  ARROW 
GEN  3 VOl  TAGF  RATSE  ARROW 
GEN  3 VOl  TAGF  lOWFR  ARROW 
GFN  3 FREQUENCY  RATSF  ARROW 
GEN  3 FREQUENCY  LOWER  ARROW 
INT  CnN  VOLTAGE  RAISE  ARROW 
INT  CON  VOLTAGE  lOWFR  ARROW 
HV  TRANSMISSION  TEXT  FOR  SW 
STATION  1 TEXT  FOR  SW 
GEN  t TEXT  FOR  SW 
ST  11  TEXT  FOR  SW 
MENU  TEXT  FOR  SW 


• 

1120 

1121 

1122 

1123 

1124 


VERTICAL  BUS  DASH  10  UNITS 
VERTICAL  BUS  DASH  10  UNITS 
VERTICA1  BUS  ON  LEFT 
HORTZ.  BUS  100  LEFT 
HORIZ.  BUS  100  RIGHT 


1125  VERTICAL  BUS  ON  RIGHT 

1126  GEN  AND  TRANSF  1 

1127  GEN  AND  TRANSF  2 


1128 

1129 

1130 

1131 

1135 

1136 


GEN  AND  TRANSF  3 

ST  11  BUS 

GEN  1 TRANSF  ONLY 

INT  CON  TRANSF 

CIRCLE  ONLY 

INT  CON  CIRCLE 


THE  FOLLOWING  IS  THE  CONTENTS  OF  THE  FILE.  SYNCRN.CMDl 


SYNCRN/-CP * T I S /SH=SYNCRN » SYREST . DSPSUB . GL IB/LB 

/ 

ASG-GRO S 1 
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PROGRAM  TO  DRAW  THF  SYNCHRONIZING  PICTURE. 


COhMON/TiF  ILF /I  PUP  ( 1050) 
CALL  INIT(IOSO) 


START  WITH  THF  RING  PUS  SECTION. 


CALL 

APNT (150. , 1070. ,-1,-4) 

CALL 

SUBP( 1122) 

t sijbp:  vbiis  section 

CALL 

SUBP (11 20 ) 

! sijbp:  vbijs  10 

CALL 

VBIIS( -10.  ,5) 

CALL 

ESUB 

CALI 

RD0T(0. ,-10. »-l , -4  ) 

CALI 

SUBP( 1121 ,1120) 

i sijbp:  ubus  10 

CALL 

RD0T(0. ,-10. ,-l ,-4> 

CALL 

ODIJS (-30.  ,5) 

CALL 

ESUB 

CALL 

SUBPU123) 

! sijbp:  hrijs  100 

CALL 

HBOS ( 100. ,5) 

CALL 

ESUB 

CALL 

ROOT (0. ,-10. ,-5,-5) 

CALL 

SUBP ( 4 ) 

i sijbp:  cl  cb  rng 

BUS 

LT 

CALL 

CBCLIK4) 

CALL 

ESUB 

CALL 

SUBP ( 104) 

• sijbp:  op  cb  rng 

BUS 

1 T 

CALL 

CB0F’N(4 ) 

CALL 

ESUB 

CALL 

AF'NT  (270.  ,950.  ,-1,-4) 

CALL 

HBl)S(  160.  ,5) 

CALL 

ROOT ( 0 . ,-10. ,-l »-4> 

CALL 

SUBP (5, 4) 

i sijbp:  cl  cb  rng 

BUS 

RT 

CALL 

SUDP( 105,104) 

•sijbp:  OF'  CB  RNG 

BUS 

RT 

CALL 

AF'NT  ( 450 . , 950  .,-1,-5) 

CALL 

SllBF'(  1124, 1123) 

• sijbp:  hbus  on  rt 

CALL 

R0OT(O. ,70. ,-1,-4) 

CALL 

SUBP( 1125, 1122) 

• siibp:  vbijs  sect 

ON  1 

RT 

WRITF  THF  DESIGNATION  FOR  THF  GENERATORS  AND  REGULATOR. 

CALL  AFNT(143. .405. ,-l,-5> 

CALL  TEXT  ( ' 1 ' ) 

CAL  L AF'NT  ( 343  . » 405 .,-1,-5) 

CALL  TFXT ( '2'  ) 

CALL  AF'NT  < 543 . ,405.  ,-l  »-5> 

CALL  TEXT ( ' 3 ' ) 

CALL  AF'NT  (743.  ,805.  ,-l  ,-5) 

CALL  TEXT ( ' R ' ) 


TEXT  FOR  RING  BUS. 

ALSO  FOR  THE  GENERATORS. 


CALL  STAT(-l) 

CALL  AF'NT  ( 290 . ,980.  ,-1,-5) 
CALL  TEXT ( 'RING  BUS'  ) 

CALI  APNT<70. .405. ,-l ,-5) 
CALL  TEXT < 'GEN' ) 

CALL  AF'NT  < 270 . , 405  .,-1,-5) 
CALL  TEXT ('GEN') 

CALL  APNT  < 470 . , 405 .,-1,-5) 
CALL  TEXT ('GEN') 


C 


n n n odd  n n n on 


DRAW 

GEN  1,  TRANSFORMER » AND 

CIRCUIT 

RRFAKFR . 

CALI. 

AF'NT  (126.»415.*-l»-4) 

CALI 

SURE ( 1 1 26  > 

i sure: 

GFN 1 * 

TRANS 

CAl  l 

SURF'  (1135) 

isijre: 

CIRCLE 

ONLY 

CALL 

CIRCLE ( 25 . »-l  ,4,-1 ) 

CALL 

FSUB 

CALL 

RDOT (24. ,25. .-1 .-4) 

CALL 

SURF'  (1130) 

isure: 

TRANS 

ONLY 

CAl  L 

VECT  ( 0 . » 50 . ) 

CALL 

TRANSF 

! GEN 

1 TENS 

CALL 

VECT ( 0 . » 50 . ) 

CALL 

FSUR 

CALL 

ESIJB 

CAl  1 

R'DOT (-10.  ,0. ,-1,-4) 

CALL 

SURF'  ( A » 4 ) 

isiire: 

CL  CR 

GFN  1 

CALL 

SUBF'(  106,  104) 

'sure: 

OF'  CR 

GFN  1 

CALL 

AF'NT  < 150 . * 600  .,-1,-4) 

CALL 

VECT (0. ,350. ) 

riRALI 

GEN  2,  TRANSFORMER,  AND 

CIRCUIT 

BREAKER'S 

IJF'  TO  THE  RTNG  1 

CALL 

AF'NT  ( 325  .,415., -1,-4) 

CAl  L 

SURF'  (1127,1126) 

' SURE  5 

GEN  2 

* TRNS 

CALL 

RDOT (-10. ,0. ,-l ,-4) 

CALL 

SURE <7, 4) 

i sure: 

CL  CR 

GEN  2 

CAl  L 

SURF'  < 107,104) 

isijre: 

OF'  CR 

GEN  2 

CAl  1. 

AF'NT  ( 350 . ,600.  ,-1,-4) 

CALI 

VECKO. ,100. ) 

CALL 

RDOT (-10. ,0. ,-1,-4) 

CALL 

SURE (9, 4) 

• sure: 

CL  CR 

Al-3 

CALL 

SURF' ( 109, 104) 

isure: 

OE  CR 

Al-3 

CAI..I 

AF'NT  (350.  ,720., -1,-4) 

CALL 

VECKO.  ,230.  ) 

DRAW 

GEN  3,  TRANSFORMER,  AND 

CIRCUIT 

BREAKERS 

TO  RING 

i BUS. 

CALL 

AF'NT  (525.  ,415.  , -1,-4) 

CALL 

SI)BE(  1120, 1126) 

i sure: 

GEN  3 

8 TRNS 

CALL 

RDOT (-10. ,0. ,-1,-4) 

CALL 

SURE (8, 4) 

i sure: 

CL  CR 

GFN  3 

CALL 

SURF'  ( 108 , 104 ) 

I sure : 

OE  CR 

GEN  3 

CALI 

AF'NT ( 550 • ,600.  ,-1,-4) 

CALL 

VECT (0. ,100. ) 

CALL 

RDOT (-10. ,0. ,-1,-4) 

CALL 

Sure ( 10,4) 

' sure: 

Cl  CR 

Bl-3 

CAl  1 

SURE( 110,104) 

i sure: 

OF'  CR 

Rl-3 

CAl  1 

AF'NT  (550.,  720., -1,-4) 

CALI 

VFCT ( 0 . ,230. ) 

DRAW 

STATION  11  BUS  THEN  THE 

LINES  Cl 

-11  AND  D 1 - 1 1 . 

CALL 

AF'NT  (350.  ,650.  ,-1,-4) 

CALL 

HRUS ( 200 . ,5) 

CALI 

AF'NT  (416.  ,650.  »-i  »-4> 

(START 

Cl-11 

CALL 

VECT (0. ,50. ) 

CAl  L 

RDOT (~10.»0.»-1 »-4) 

CALL 

SURE (11, 4) 

' SURF' : 

CL  CR 

Cl-11  ST 

CAl  1 

SUBE( 11 1,104) 

'SURE: 

CL  CR 

Cl-11  ST 

CALL 

AF'NT (416.  ,720.  ,-1,-4) 

CALL 

VECT ( 0 . ,80. ) 

I 416, 

800 

CALL 

VECT ( 234 . ,0 . ) 

! 650, 

800 

CALL 

VECT ( 0 . ,-250. ) 

! 650, 

550 

CALL 

VECT ( 50 . ,0 . ) 

! 700, 

550 

CALL 

VECT(0. ,30. ) 

CALL 

RDOT (-10. ,0. ,-l ,-4) 

o n n n n n 


CALL 

SURF’ (14,4) 

• SURF’S  Cl 

CR 

Cl-1  1 

sri  i 

CALL 

SURF’ ( 114, 104) 

•SURF’S  OP 

CR 

Cl-11 

Sill 

CAI  L 

AF’NT  ( 700 . , 600 . ,-1,-4) 

CALI 

VECT ( 0 . ,50. ) 

CALI 

SUBP< 1179, 1123) 

• SURF  S ST  - 

1 1 

PUS 

CALL 

DECT ( 0 . ,-50. ,-1,4) 

• START  HI 

-11 

CAL  L 

ROOT (-10. ,-20. ,-1,-4) 

CALL 

SURF’  (15,4) 

• SURF’S  CL 

CR 

R 1 - 1 1 

ST  1 1 

CAI  L 

SURF’  (115,104) 

1 SURF’S  OP 

CR 

R l - 1 1 

ST  11 

CALL 

APNT ( 800 . ,580. ,-1,-4) 

CALL 

DECT ( 0 . , -80 . > 

• 800,500 

CALL 

VECT ( -200 . ,0 . ) 

• 600,500 

CALL 

UECT ( 0 • ,250. ) 

! 600,750 

CAL  L 

DECT (-116. ,0. ) 

• 484,750 

CALL 

DECT ( 0 . ,-30. ) 

• 484,720 

CALL 

RIOT (-10. ,-20. ,-1,-4) 

CALL 

SURP (12,4) 

• SURF’S  CL 

CR 

01-11 

ST-1 

CALL 

SURF’  (112,104) 

• SURF’S  OP 

CR 

01-11 

ST-1 

CALL 

AF’NT ( 484  . ,700.  ,-1,-4) 

CALL 

DECT ( 0 . , -50 . ) 

PRAU 

INTERCONNECTION. 

CALL 

APNT  < 750 . ,650. ,-1,-4) 

CALL  BURP (1131>11 30)  • SURF- 5 TNT  CON  TRNS 

CALL  AF’NT (726.  ,815.  , -1 »-4> 

CALL  SURF'  <11 36 ,11 35  ) 'SHRPS  TN  CON  CIR 

CALL  AF’NT (750.  .840.  ,-l  ,-4> 

CALL  VECT ( 0 . , 50 . ) 

CALL  ROOT (-10. , 0 . , -1 » - 4 ) 

CALL  SIJBP (13,4)  'SIIFiP:  CL  CFi  TNT  CON 

CALL  SURP(113,104>  ISIJRPS  OP  CR  TNT  CON 

CALL  AF’NT(750.  ,910.  , -1  * -4 ) 

CALL  DECT ( 0 . » 70 . > 

CALL  ARR0W0(-1 ,4,-1 ) 

CALL  AF’NT  ( 700.  , 1000.  ,-1,-5) 

CALL  TEXT  ('.TNT  CON') 

CALL  APNM650.  ,400.  ,-l  ,-5> 

CALL  TEXT < 'SYNCHRONIZING' > 

CALI.  THE  REST  OF  THE  PICTURE. 

CALL  RESTOF 

STOP 

END 
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SUBROUTINE  TO  FINISH  THE  SYNCHRONISING  PICTURE 
SUBROUTINE  RESTOE 


DISPLAY  THE  DATA  FOR  THE  VARIOUS  SOURCES. 


CALL  APNT ( 1 1 5 . . 350 . . ~ 1 . -5 . - 1 . 1 ) 

CALL  TEXT! 'VOLT') 

CALL  APNT (180..  300 ..1.-4) 

CALL  SI  IBP  < i 101 ) 

! SIIBP 

CALL  VEST ( 0 . .30. ) 

CAL  I AKROUU (1.4.-1) 

CALL  ESUD 

CALL  RDOT ( 0 . *-40. .-1.-4) 

CALL  SUBPU102) 

1 SUBP 

CALL  VECTIO. .-30. ) 

CALL  ARR0UIK1 .4,-1 ) 

CALL  ESUD 

CALL  APNT (120. ,220. »-l .-5) 

CALL  TEXT ( 'FREO' ) 

CALL  APNT ( 1 GO . * t 70 . » 1 * -4 ) 

CALL  SUPP( 1103 >1101) 

1 SUBP 

CALL  RDOT ( 0 . . -40 . . 1 . -4  > 

CALL.  SUBP (1104.11 02  ) 

• SIJBP 

CALL  APNT(315. .350. .-1 .-5) 

CALL  TEXT! 'VOLT') 

CALL  APNT (300. .300. 7 1 7-4) 

CALL  SUBP (11 05  7 1 1 0 1 ) 

1 SUBP 

CALL  ROOT (0. 7-40.7-17-4) 

CALL  SUBP (11 OA  7 1 1 02 ) 

i SUBP 

CALL  APNT (320. 7220. 7-1 7-5) 

CALL  TEXT ( 'FREO' ) 

CALL  APNT ( 300 . 7 1 70 . 7 1 7 -4 ) 

CALL  SUBP (11077 1101) 

'SUBP 

CALL  RDOT (0. .-40. .1.-4) 

CALL  SURE’  ( 1 1 OR  7 1 1 02 ) 

1 SUBP 

CALL  APNT(515. .350. 7-1 7-5) 

CALL  TEXT ('VOLT') 

CALL  APNT ( 500 . 7 300 . 7 1 7 -4 ) 

CALL  SU»P( 11097 1101) 

'SIJBP 

CALL  RP0T(0. 7 -40. 7 1 7-4) 

CALI  SLIBP(  1 1 IO7 1 10?) 

' SIIBP 

CALL  APNT(520. 7220. 7-1 7-5) 

CALL  TEXT ('FREQ') 

CALI  APNT (500. 7170. 7 17-4) 

CALL  SIJBP (1111.  11 01) 

' SIIBP 

CALL  RDOT (0.. -40.. 1.-4) 

CALL  SUDP( 1112.1 102) 

• SUBP 

CALL  APNT<815. .850. .-1 7-5) 

CALL  TEXT ('VOLT') 

CALL  APNT(880. .800. 7 1 7-4) 

CALL  SUBP (1113.1101) 

I SIJBP 

CALL  RDOT (0. 7-40. .1.-4) 

CALL  SUBP (1114. 1102 ) 

' SUBP 

CALL  APNT (8?0. .720. .-1 7-5) 

CALL  TEXT ( 'FREQ' ) 

CALL  STAT(l) 

RAISE  GEN  1 VOLT 

LUR  GEN  1 VOLT 


RAISE  GEN1  FREQ 
LUR  GEN1  FREQ 

RAISE  GFN  2 VOLT 
I UR  GEN  2 VOLT 

RAISE  GFN  2 FREO 
LUR  GEN?  FREO 

RAISE  GFN  3 VOLT 
LUR  GEN  3 VOLT 

RAISE  GEN3  FREO 
LUR  GEN3  FREQ 

RAISF  INT  VOLT 
LUR  INT  VOLT 


C 


100 
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■JRITF  THF  TFXT  FOR  THF  'ARF  YOU  SURF ' ROUBLE  CHFCN 
FOR  l IGHT  FFN  HITS  DURING  THF  PROGRAM  RUN. 


CALL 
CAL  L 
CALL 

SURF’  ( 90 ) 

AFNT ( 890 . . 750 . . - 1 . -5 . 1 ) 

TEX  r < 'YOU  SIJPL?  ' ) 

i SUBF' : 

R U SURE 

DRAW 

THE  ‘YES’  SUBPICTURE. 

CALL 

CALL 

CALL 

CALL 

SURF1  <91  ) 

AFNT ( 900 . . 700 . . 1 . -5 . - 1 ) 

TEXT ( 'YES' ) 

ESUB 

' SUBF' : 

CK  IF  YES 

DRAW 

THE  'NO*  SUBPICTURE. 

CALL 

CALL 

CALL 

CALL 

SUBF'  ( 92 ) 

APNT (970. .700. . 1 .-5.-1 ) 

TEXT ( 'NO' ) 

ESUB 

CALL 

ESUB 

CALL 

OFF (90) 

PLACE  THE  NUMBERS  FOR  THE  BATA  TO  BE  RTSPLAYFR . 

CALL  AF'NTUOO.  .285.  .-1  .-5) 

CALL  STAT<1) 

CALL  NMBR <931 .VOLTS. 5. ' (F5.2) ' ) 

(‘ALL  AFNT  ( 1 00 . . 1 55 . . - 1 . -5  > 

CALL  NMBR ( 932 . VOLTS. 5 » '<F5.1>' ) 

CALL  APNT <300. .285. .-1 .-5) 

CALL  NMBR <93A. VOLTS. 5. ' (F5.2) ' ) 

CALL  AFNT ( 300 . . 155 ..-1.-5) 

CALL  NMBR<  937 . V0LTS.5 . ' <F5.1> ' ) 

CALL  AFNT(500. .285. .-1 .-5) 

CALL  NMBR ( 941 .VOLTS. 5. ' (F5.2) ' ) 

CALL  APNT < 500.. t55.. -1.-5) 

CALL  NMBR (942. VOLTS. 5. ' (F5. 1 ) ' ) 

CALL  APNT < 800. .785. .-1 , -5) 

CALL  NMBR <94A. VOLTS. 5. ' (F5.2)  ' > 

CALL  AF'NT  < 800  . . A90  ..-1,-5) 

CALL  NMBR (947. VOLTS. 5. ' <F5. 1 > ' ) 

SETUP  THE  MENU. 

CALL  MENU  < 930 . » 500 . . -50 ..1115,' HVTRNS ' » ' STAT  t ' . 'REN  t'. 
t 'STATU  ' . 'MENU'  ) 

SAVE  THE  PICTURE  IN  A FILE  CALLED  * SYNCRN . DPY * . 

CALL  SAVE < 'SYNCRN. DPY' ) 


RETURN 

END 


. 
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PIP>TI!=INTRO.TXT 

THE  'INTRO. FTN'  EIIE  CONTAINS  THF  FORTRAN  SOIIRCF  FOR  THF 
INTRODUCTION  DISPLAY.  FRIT  THE  FILE  USING  THF  EDIT  UTILITY. 

TO  COMPILE  WITHOUT  A SOURCE  LISTING.  TYF'F! 

>EOR  INTRO* INTRO 

TO  COMPILE  WTIH  A NUMDEREH  SOURCE  LISTING.  TYPE: 

>FOR  TNTRO* INTRO/L I *1 

TO  TASK  BUILD  USING  THE  INDIRECT  COMMAND  FILE.  TYPES 
>TKB  PTNTRO 

THIS  CAUSES  A FILF . ' INTRO . OB  J ' . TO  F<F  CREATFD  BY  THF  'FOR' 
COMMAND  AND  A FILF.  'INTRO. TSK*.  TO  BE  CREATFD  BY  THF  ' TK B ' COMMAND. 

THE  'P'  SYMBOL  INDICATES  THE  USE  OF  AN  INDIRFCT  COMMAND  FTIF.  THIS 
IS  FILE.  * INTRO.CMD' . AND  CONTAINS  THF  TASK  BUILDER  rnMMANDS  NFCESSARY 
TO  BUILD  THIS  TASK. 

TURN  ON  THE  VT-11.  THEN  BUILD  THF  DISPI  AY  TO  BF  SAVFD  BY  TYPING! 
>RUN  INTRO 

IF  THE  ABOVE  SFQUENCE  IS  FOLLOWFD  A NFU  FTIF  TS  CRFATFD  CAI.IFR 
■INTRO. DRY*  THAT  CONTAINS  THE  SAVED  DISPLAY. 

THE  INTRODUCTION  DISPLAY  HAS  PUBPTCTURFS  OF  TFXT  FOR- 
SWITCHING  PURPOSES  ONLY.  THEY  ARE  USED  FOR  CHANGING  DISPI  AYS. 

SUBPICTURE  NUMBER  DESCRIPTION 

HVTRNS  TEXT  FOR  SW 
SYNCRN  TEXT 
ST AT  1 TEXT 
STATlt  TEXT 
GFN  1 TEXT 
SIIBST4  TEXT 
IND  LD  TEXT 
SLJBSTA  TEXT 
NFTSYS  TEXT 
I D CTR  TEXT 
EXIT  TEXT 

II  ’ 


3 

4 

5 

6 

7 

8 
9 

10 

11 


THF  FOLLOWING  IS  CONTAINED  IN  THE  FILE.  INTRO.CMD! 


INTRO/-CP. TI ! /SH= I NTRO . DSPSUB . GL I B/LB 

/ 

A5G=GR0! 1 
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PROGRAM  TO  WRITE  THE  INTRODUCTION  AND  ENTRY  MENU  EOR  THE 
CONTROL  PROGRAM. 

COMMON/DE ILE/ I DUE < i OOO ) 

CALL  INIT(IOOO) 

WRITE  THE  TEXT  FOR  EXPLANATION  STARTING  WITH  TTTLE. 

CALL  APNT ( 250 . , 850 .i-lr -5 ) 

CALL  BTAT(-l) 

CALL  TEXT ( ' POWER  STS TEM  CONTROL  GRAPHICS') 

CALL  STATtl) 

WRITE  TEXT. 

CALL  APNT ( 50 . » 750 . , - 1 » -5 ) 

CALL  TEXT < ' THE  GRAPHICS  THAT  FOLLOWS  THTS  EXPLANATION  CAN 
l CONTROL  THE' , 1 » 'POWER  SYSTEM  SIMULATOR  TN  FRONT  OF  YOU.  THE 
COMPUTER  IS'  .1 , 'PROGRAMMED  TO  HFTFCT  WHERE  AND  WHEN  YOU  POINT 
LIGHT  PEN  ON ' > 1 » ' SENSITIZED  PORTIONS  OF  THIS  SCREEN.  IF  IT 
DETECTS  A *HIT*,',1) 

CALL  TEXT ('IT  WILL  THEN  EXECUTE  SOME  ACTION  THAT  HAS  Al  SO  SEEN 

1 PROGRAMMED'  >1*  ' INTO  THE  COMPUTER.  THF  AnTON  MAY  RE  TO  CLOSE 

2 A CIRCUIT  ',  1 , ' BREAKER » RAISE  A VOLTAGE.  OR  CHANGE  PICTURES.  TO 

3 AVOID' . 1 . 'MISTAKES.  A DOUBLE  CHECK  IS  ADDED  IN  THE  FORM  OF 
A A' . 1 ) 

CALL  TEXT ( ' " YOU  SURE ■ QUESTION.  POINT  THF  I TGHT  PFN  TO  THE 

1 * YES “ OR ' » 1 » ' ‘ NO  * > AS  DESIRED.  FOR  THE  CHANGE  INDICATED  BY 

2 A TRIANGLE' . 1 . 'THAT  APPEARS  AROUND  THF  LIGHT  PEN  HTT.  THE 

3 CIRCUIT' .1. 'BREAKERS  AND  SWITCHES  WILL  OPFN  IF  CLOSED  AND 
A VICE  VERSA' . I ) 

CALL  TEXT  < ' WHEN  POINTED  AT.  TO  CHANGE  FTCTURFS  POINT  AT  THE 

1 WORD'. 1. 'DESCRIBING  THE  PICTURE  DESIRED , ONI  Y THOSE  WORDS  TN 

2 BLOCK' .1 . 'LFTTERS.  NOT  ITALICS.  ARE  SENSITIVE.  TO  CONTINUE  ’HIT* 

3 ONE  OF'. 1. 'THE  WORDS  ON  THE  RIGHT.  THE  PROGRAM  CAN  BE  STOPPED 
A ONLY  PY'.I.'A  HIT  ON  ’EXIT’.') 

CREATE  THE  MENU  TO  BE  USED  TO  CHOOSE  WHICH  PICTURE  TO  START  EROM. 

CALL  MENU  < 930 . . 550 . . -50 . . 1 . ' HVTRNS ' . ' SYNCRN ' , ' ST AT  t ' . ' STAT11', 

1 'GEN  1 ' » ' SUDST 4 ' » ' IND  LD ' , 'SIJBSTA ' » ' NETSYS ' » 'LD  CTR'> 

CALL  MENU <930. . 50 . , 50 . , 11 , ' EX  I T ' ) 
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UR  I TP  THP  TPXT  FOR  THP  * ARF  YOI I SURF*  DOIIRI  P CHFCK 
FOR  LIGHT  F'F  N HITS  DURING  THL  PROGRAM  RUN. 

CALL  SIJBP  ( 90 ) ISURP!  R II  SURF 

CALL  APNT(870. » 750 . » -1  * -5 » 1 ) 

CALL  TEXT ('YOU  SURE?') 

DRAW  THE  * YES  * SUBPICTURE. 

CALI  SUBP ( 91  ) isiirp:  C K IF  YES 

CALL  AF'NT  ( RRO . » 700 . » 1 » -5 » - 1 ) 

CALL  TPXT ('YES') 

CALL  ESUB 

DRAW  THE  *N0 * SUBPICTURE. 

CALL  SUBP (92) 

CALL  APNT(950. .700. »l»-5»-l ) 

CALL  TEXT ('NO') 

CALL  ESUB 

CALL  ESUB 

CALL  OFF (90) 

SAVE  THE  PICTURE  IN  A FILE  CALLED  * INTRO . DRY  * . 

CALL  SAVE ( 'INTRO. DPY' ) 

STOP- 
END 


¥ 


tl 

r 

1 i 

I 

1 

; 
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THE  ‘STAT1.FTN*  AND  * ST  t F IN . FTN  * FILE'S  CONTAIN  THF  FORTRAN 
SOURCE  FOR  THF  STATION  1 DISPLAY.  EDIT  THF  FTLFS  USTNO  THF  FDIT 
UTILITY.  THESE  FILFS  USE  SUBROUTINES  CONI  A T NF D IN  A FILE  CALLED 
•DSPSUR.FTN' . IF  THIS  FILE  HAS  NOT  DFFN  PREVIOUSLY  COMPILED* 

IT  MUST  BE  COMPILED  TOO. 

TO  COMPILE  WITHOUT  A SOURCE  LISTING.  TYPE { 

'■■FOR  RTAT1  =STAT  1 

AND  THEN  >FOR  ST1FIN=ST1FIN 

TO  COMPILE  WITH  A NUMBERED  SOURCE  LISTING.  TYPE ! 

>FOR  STAT1=STAT1/LI S 1 
AND  THEN  >FOR  ST1 FIN=ST1 FIN/LI  5 1 

TO  TASK  BUILD  USING  THE  INDIRECT  COMMAND  FILE.  TYPE: 

>TKB  8STAT1 

THIS  CAUSER  FILES.  'STATl.OBJ*  AND  •STlFTN.nfi.l* , TO  BF  CREATED 
BY  THE  ‘FOR*  COMMAND  AND  A FILE.  "STAT1 ,TSK" . TO  BF  CREATED  BY 
THE  ■ TKB 1 COMMAND.  THE  •(?*  SYMBOL  INDICATES  THF  USE  OF  AN  INDIRECT 
COMMAND  FILE.  THIS  IS  FILE.  * ST ATI . CMD* » AND  CONTAINS  THF  TASK  BUILDER 
COMMANDS  NECESSARY  TO  BUILD  THIS  TASK. 

TURN  ON  THE  VI -11  AND  BUILD  THE  DISPLAY  TO  BF  SAVFD  BY  TYPING 5 


>RUN  STAT1 

IF  THt  ABOVE  SEOUENCE  IS  FOLLOWED.  A NFW  FILE  IS  CRFATED  CALLED 
'PTAT1.DPY*  THAT  CONTAINS  THE  SAVED  DISPLAY. 

THE  FOI  LOWING  TS  A LIST  OF  THF  SUBPICTURE  NUMBERS  FOR  THE 
STATION  1 DISPLAY.  THE  FIRST  SFT  CONTAINS  THF  SUBPICTURF  NUMBERS 
THAT  WILI  BE  LIGHT  PEN  SENSITIVE.  THF  ORDER  DETERMINES  THF  ORDER 
OF  THF  COMPUTED  GO  TO  STATEMENT'S  ARGUMENTS  TN  THF  MATN  PROGRAM. 

THF  REMAINDER  ARE  NOT  SENSITIVE  AND  ARE  FOR  COPYING  PURPOSES  ONLY. 

SUBPICTURE  NUMBER  DESCRIPTION 


901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 


920 

921 

922 

923 

924 

925 

926 


HV  TRANSMISSION  TFXT  FOR  SU 
GFN  3 RAISE  VOLTAGE  ARROW 
GEN  3 I OWFR  VOI  T AGE  ARROW 
GEN  3 RAISE  FRFmiFNCY  ARROW 
GEN  3 L OWFR  FRFOHFNCY  ARROW 
GFN  2 RAISF  VOLTAGE  ARROW 
GFN  2 L OWFR  VOLTAGE  ARROW 
GEN  2 RAISE  FREQUENCY  ARROW 
GFN  2 LOWER  FRFOHFNCY  ARROW 
SYNCRN  TFXT  FOR  SW 
GEN  1 TFXT  FOR  RW 
STATION  tl  TFXT  FOR  SW 
MFNU  TFXT  FOR 


GFN  2 AND  TRNSF 
TRANSFORMER 
GEN  TEXT 
ST  SERV  LOAD 
AG  SFRV  LD 
ST  SFRV  TRNSF 
GFN  3 AND  TRNSF 


SW 

THIS 


- 


; 

> 

I 


105 


non  non  o rs  n non  nnnnno 


T 


« 

' 


PROGRAM  TO  DRAW  STATION  t. 

COMMON/DF  II  F/IRIJF(  1050) 

CALI.  INIT<  1050) 

START  WITH  THE  TOP  OF  THE  PICTURE  ANH  WORK  DOWNWARD. 


CALL.  AF'NT (340.  »950.  » 1 ,-5,-1 , 1 ) 

CALL  SUSP  < 901 ) i SI mp : HVTRNS  SW 

CALL  TEXT ( ' HU  TRANSMISSION') 

CALL  ESUB 

CALL  AF'NT  (850.  .940.  »-l  .-4. -1.4) 

CALL  UF.CT  ( -800 . » 0 . ) 

WRITE  TEXT  ON  THE  OUTGOING  LINES. 


I 

l 


CALL  STAT(-l) 

CALL  AF'NT ( 120.  ,900.  ,-l  , -5,-1 . 1 ) 
CALL  TEXT ( ' Al-3 ' ) 


CALL 

AF'NT (314.  .900.  .-1  .-5) 

CALL 

TEXT  < 'Cl-ll ' ) 

CALL 

AF'NT <514.  .900.  .-1.-5) 

CAIl 

TEXT ( ' Dl-1 1 ' ) 

CALL 

AF'NT  (720.  ,900.  ,-1,-5) 

CALL 

TEXT < ' D 1 -3 ' ) 

DRAW 

1 INE  Al-3. 

CALL 

AF'NT  < 150.,  600., -1,-4) 

CALL 

UECT(0. ,200. ) 

CALL 

RDOT (-10. ,0. »-l ,-4) 

CALL 

SUDF'  ( 9 ) 

' SIJBF' : 

CL  CB  Al-3 

CALL 

CBCLD ( 4 ) 

CALL 

ESUB 

CALL 

SIJBF'  < 109 ) 

1 SIJBF' : 

OP  CB  Al-3 

CALL 

CBOF'N  ( 4 ) 

CALL 

ESUB 

CALI 

AFNT( 150. ,820. , -1 ,-4) 

CALL 

CALL 

UECT ( 0 . » 70 . ) 

ARR0WU(-1 ,4,-1 ) 

XH1S  PAGE  16  BEST  QUALITY  PRAftTIgMigS 

prion  oore  furbish®  joddc  — 

DRAW 

LINE  Cl-ll. 

CALL 

AFNT(350. ,700. ,-1,-4) 

CALL 

VECT(0. ,100. ) 

CALL 

RDOT (-10. ,0. .-1,-4) 

CALL 

SUBP(11 ,9) 

i siibp: 

CL  CB  Cl-ll 

CAL  L 

SUBF( 11 1,109) 

l SIJBF' : 

OF'  CB  Cl-ll 

CALL 

AF'NT (350.  ,820.  ,-1,-4) 

CALL. 

UECT ( 0 . , 70 . ) 

CALL 

ARROWLK-1  ,4,-1  ) 

DRAW 

LINE  Dl-1 1 , 

CAI  1 

AF'NT  ( 550  . . 700  .,-1,-4) 

CALL 

VFCT(0. ,100. ) 

CALL 

RDOT ( - 10 . ,0. ,-1 »-4> 

CALL 

SUBP( 12,9) 

1 SIJBF' : 

CL  CB  Dl-tl 

CALL 

SIJBF'  (112.1 09 ) 

! SUBP S 

OF'  CB  Dl-1 1 

CALI  AF'NT  ( 550  • . 820  ..-1.-4) 
CALL  VFCT(0. .70. ) 
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CALI  ARROWIJ  <-l,4,-l) 

PR AW  LINE  Bl-3. 

CALI  APNT  <750. >600. r-1 , -4 ) 

CALL  VECT ( 0 . f 200 • ) 

CALL  RPOT (-10. *0., -1,-4) 

CALL  SUBP  (10,9)  'SI  IBP!  Cl.  CB  Bt-3 

CALL  SUBP <110, 109)  'SI IBP!  DP  CB  Bt-3 

CALL  APNT  < 750  > * B20 . , -1 , -4  > 

CALL  VECT  < 0 . » 70 . ) 

CALL  ARROWIJ < 1 , 4 , - 1 ) 

PRAU  THE  BUS. 

CALL  APNT (750. »700. ,-l ,-4> 

CALL  HBUS  < -AOO . , 5 ) 

PRAW  CONNECTION  TO  GENERATOR  2. 

CALL  APNT ( 1 40. *580. , -1.-4) 

CALL  SUBP (7,9)  'SIIBp;  Cl  CB  GPN  7 

CALL  StJBP<  107.  109)  'SIJBP:  OP  CB  GPN  7 

CALL  AF'NT (116.* 3A5 .,1,-4) 

CALL  SUBP  (920)  'SUBP!  GFN  7 TRANS 

CALL  CIRCLE (35. ,-l,4,-l) 

CALL  RI'OT  < 34 . » 35.  , -1  * -4 ) 

CALL  SUBP (921)  (SUBP 5 GEN  2 TRANS  ONLY 

CALL  VECT <0 . , 80 . ) 

CALL  TRANSE 
CALL  VECT <0. ,60. ) 

CALL  FSUB 
CALL  ESUB  . 

WRITE  THE  TEXT  EOR  THE  GENERATOR. 


CALL  APNT ( 25 . * 355 . * - 1 * -5 ) 

CALL  STAT(-l) 

CALL  SUBP ( 922)  I SUBP 5 'GEN'  TEST 

CALL  I EXT ('GEN') 

CALL  ESUB 
CALL  STAT<1 ) 

CALL  AF'NT  <143.*  355 . * - 1 * -5 ) 

CALL  TEXT ( ' 2 ' ) 

PRAW  THE  SERVICE  LOAPS. 

CALL  APNT <400. *400. »-l .-A) 

CALL  SUBP <923)  ' SUBP 5 ST  SERV  LD 

CALL  LOAD 
CAl  L ESUB 

CALL  AF'NTMOO.  ,400.  *-l  .-4) 

CALL  VECT < 100. ,0. > 

CALL  SUBP <924. 923)  I SUBP!  AG  SERV  LD 

CAL  L STAT<-1) 

CALL  APNT <350. *280. *-l*-5> 

CALL  TEXT< 'SERVICE  LOAPS') 

CALL  APNT ( 450 . * 400 .*-1,-4) 

CALL  SUBP <925. 921  ) ' SIJBP : ST  SERV  TRANS 

CAl  L RP0T<-10. .0. ,-l ,-4> 

CALL  SUBP  < 46 , 9 > • SIJBP  1 CL  CB  ST  SERV 

CALL  SUBP<  1 46,  109)  I SIJBP  1 OP  CB  ST  SERV 

CALL  APNT <450., AOO., -1,-4) 

CALL  VECT<0. ,100. ) 

• 

PRAW  GENERATOR  3. 


nnn  non  nnno 
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CAl.L  APNT<715. ,365. ,-l .-4) 


CALL 

SIIRP  < 926 » 920  > 

• siirp: 

GEN  3 TRANS 

CALI 

RD0M-10.  ,0.  »-l  ,-4> 

CAl  l 

SUBP(8.9) 

i shbp : 

Cl.  CR  GFN  3 

4 

CAl  L 

SURPU08,109> 

•sure: 

OP  CR  GFN  3 

CALL 

AF’NT<«25.  .355.  .-1,-5) 

CAl  1 

SIIBF’  ( 927 » 922  > 

! SURF’ : 

GEN  TEXT 

CALL  AF'NT  < 743 . , 355  • » - 1 » -5 ) 
CALL  STAT(1 ) 

CALL  TEXT < ' 3 ' ) 


WRITE  ALL  THF  TEXT  FOR  THE  GENERATORS  AS  A SURF’ICTI.IRE  TO  BE 
COPIED  EOR  THE  OTHER  GENERATOR. 


CALL 

APNT (650. .290. .-1,-5) 

CALL 

STAT  <-l > 

CAl  1 

TEXT  ( ' PR  T MF'  MOVER') 

CALL 

APNT  < 650 . , 260 .,-1,-5) 

CALL 

TEX  I ( 'EXCITATION' ) 

CALL 

APNT <650. ,220. ,-1,-5) 

CAl  l 

TEXT ( 'VOL TAGE  AMPS') 

CALI 

AF’NT  <740.,  180.,  1,-4) 

CALI. 

SURF’ <902) 

• siirp: 

RATSF  VIII  T GFN  3 

CAl  l 

VECT  < 0 . , 30 . ) 

CAl  1 

ARROWIJ  ( 1 ,4,-1  ) 

CALL 

ESLIR 

CAL  L 

APNT <740., 170., 1,-4) 

CAl  1. 

SURF’ <903) 

• siirp: 

I.UR  VOLT  GEN  3 

CAL  L 

VECT ( 0 . ,-30. ) 

CALL 

ARROWrK  1 ,4,-1 ) 

CALL 

ESUB 

CAl  1 

APNT  < 825 . , 150. ,-l ,-5> 

CAl  l 

TEXT! ' p . E , ' ) 

CAl  l 

APNT <665. .100., -1,-5) 

CALL 

TEXT! 'FREO' ) 

CAl  1 

AF’NT  <740.  ,60.  .1,-4) 

CAl  1 

SURF’  <904, 902) 

isiirp: 

RAISE  VOLT  GEN  3 

CAl  l 

APNT <740. ,50. , 1 ,-4) 

CALL 

SURF’ <905, 903) 

i siirp: 

L UR  FREQ  GEN  3 

CAl  l 

APNT <835. ,80. ,-l ,-5) 

CALL 

1 EXT  < 'KW' > 

DRAW 

THE  PRIME  MOVER  AND  EXCITATION 

SWITCHES  EOR  GENERATOR  3. 

CALL 

STATU  ) 

CALL 

AF’NT<840. ,290. ,1.-5) 

CAM 

SURF’ (149) 

i siirp: 

GFN  3 DC  SUP  ON 

CALL 

TEXT ( 'ON' > 

CALL 

ESUB 

CALI 

0FEU49) 

CAl  1 

SURF’ (49) 

l SURF’S 

GEN  3 DC  SUP  OFF 

CAl  L 

TEXT  < 'OFF' ) 

CALL 

ESUB 

CAl  1 

APNT <840., 260., 1,-5) 

CALL 

SURF’  < 150, 149) 

i rijrp: 

GFN  3 EXCTT  ON 

CALL 

OFE< 150) 

CALL 

SURF’ (50, 49) 

• SURF’ : 

GFN  3 EXCIT  OFF 

PI  ACE  THE  DATA  TO  BE  MONITORED  IN  CORRECT  POSITION. 

CALL  AF’NT  < 650 . , 1 65 « » -1 » -5 ) 

CALL  NMBR(941 .VOLTS, 5, ' (F5.2) ' ) 

CAM  APNT  ( 650 . » 45 • » -1  , -5 ) 

CALL  NMDR ( 942 , VOLTS  * 5 » ' < F5 . 2 ) ' > 

CALL  AF’NT  ( 810 . * 190 . , -1 » -5 ) 
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CALL  NMBR<943,V0I.TS,5»  ' <F5.2)  ' ) 

CALL  APNT (810, ,120. »-l » -5) 

CALL  NMBR<944,V0LTS»5» ' <F5.2) ' > 

CALL  APNT <810.  ,50.  ,-l  »-5> 

CALL  NMBR ( 945 , VOLTS » 5 » ' (F5.2) ' ) 

WRITE  ALL  THE  TEXT  FOR  THE  RFNFRATORS  AS  A SUBPICTURE  TO  RE 
COPIED  FOR  THE  OTHER  GENERATOR. 


CALL 

APNTI50., 290., -1,-5) 

CALL 

STAT  < -1 ) 

CALL 

TEXT < 'PRIME  MOVER') 

CALL 

APNT <50. ,260. ,-1,-5) 

CALL 

TEXT ( 'EXCITATION' ) 

CALL 

APNT  < 50 . , 220 • ,-1,-5) 

CALL 

TEXT< 'VOLTAGE  AMPS') 

CAL..L 

APNT< 140. . 180. , 1,-4) 

CAL  L 

SUDP  < 906 , 902 ) 

isubp: 

RAISE  VOLT  GFN  2 

CALL 

APNT <140., 170., 1,-4) 

CALL 

SUBP  < 907 , 903 ) 

isi.ibp: 

LWR  VOI..T  GEN  2 

CALL 

APNT<225. ,150. ,-1,-5) 

CALL 

TEXT  < 'P.F. ' ) 

CALL 

APNT < 65. , 100. ,-l ,-5) 

CALL 

TEXT  < 'FREQ' ) 

CALL 

AF'NT  <140. ,60. ,1,-4) 

CALL 

SUBP <908, 902) 

! SUBP : 

RAISE  FREQ  GEN  2 

CALL 

AFNT<140. ,50. ,1,-4) 

CALL 

SUBP <909, 903) 

isubp: 

LWR  FREO  GEN  2 

CALL 

APNT  <235. ,80. »-l »-5) 

CALL 

TEXT  < 'KW' ) 

DRAW 

THE  PRIME  MOVER  AND  EXCITATION 

SWITCHES  FOR  GENFRATOR  2. 

CALL 

STAT< 1 ) 

CALL. 

APNT <240., 290., 1,-5) 

CALL 

SUBF< 147, 149) 

isubp: 

GEN  2 DC  SUP  ON 

CALL 

OFF< 147) 

CALL 

SUBP <47, 49) 

i subp : 

GEN  2 DC  SUP  OEF 

CALL 

APNT <240. ,260. , 1,-5) 

CALL 

SUBF’  <148,149) 

! subp : 

GEN  2 EXCIT  ON 

CALL 

OFF  <148) 

CALL 

SUBP <48, 49) 

i subp : 

GEN  2 EXCIT  OFF 

CALL 

THE  REST  OF  THE  PROGRAM. 

CALL 

FINISH 

STOP 

END 

THE  FOLLOWING  IS  CONTAINED  IN  THE  FILE,  STATI.CMDJ 


STAT1/-CP,TI J/SH=STAT1 » ST1FIN , DSPSUB , GL IB/LB 

/ 
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SUBROUTINE  TO  FINISH  THE  STATION  1 PICTURE. 

SUBROUTINE  FINISH 
CALI.  OFF  (155) 

PLACE  THE  DATA  TO  BE  MONITORED  IN  CORRECT  POSITION. 

CALL  AF'NT  ( 50 . » 1 65 . » - 1 » -5 ) 

CALL  NMBR < 936 , VOLTS » 5 » ' (F5.2) ' ) 

CALL  APNT<50. .45. ,-l ,-5) 

CALL  NMBR  < 937 » VOLTS  * 5 , '(F5.2) ' ) 

CALL  AF'NT (210. , 190.  »-l  .-5) 

CALL  NMBR(938,V0LTS»5, ' (F5.2)  ' ) 

CALL  APNT(210. .120., -1,-5) 

C Al  l NMBR  ( 939 , VOL  TS , 5 » ' ( F5 . 2 ) ' ) 

CALL  AF'NT  ( 210 . , 50 . » -1 » -5 ) 

CALL  NMBR (940. VOLTS » 5. '(F5.2) ' > 

CALL  AF'NT  ( 162 • » 710 • »-l , -5 ) 

CALL  NMBR (966. .VOLTS. 5. ' (F5.2> ' ) 

CALL  STAT(-l) 

CALL  TEXT ( ' VOLTS') 

CALL  AF'NT  (233.  .650.  .-1.-5) 

CALL  TEXT ( 'STATION  1 ' ) 

CALL  STAT(l) 

ADD  THE  MENU  FOR  THE  SWITCHES  FOR  THE  OTHER  PICTURES  NEEDED 
ON  THIS  PICTURE. 

CALL  MENU(930. .500. .-50. .910, 'SYNCRN' . 'GEN  1 ' , 'STAT11 ' . 'MENU' ) 

WRITE  THE  TEXT  FOR  THE  ’ARE  YOU  SURE*  DOUBLE  CHECK 
FOR  LIGHT  PEN  HITS  DURING  THE  PROGRAM  RUN. 

CALL  SUBP ( 90 ) ! SUSP  1 R U SURE 

CALL  APNT(870. .750. .-1 .-5. 1 ) 

CALL  TEXT ('YOU  SURE?') 

DRAW  THE  ’ YFS * SUBPICTURE. 

CALL  SUBP(91)  ISUBP:  CN  IF  YES 

CALL  AF'NT  ( 880 . . 700 . . 1 . -5 » -1 ) 

CALL  TEXT ('YES') 

CALL  ESUB 

DRAW  THE  * NO  * SUBPICTURE. 

CALL  SUBP (92) 

CAM  AFNT(950. ,700. . 1 ,-5,-1 > 

CALI  TEXT ('NO') 

CALL  ESUB 

CALL  ESUB 

CALL  OFF (90) 

SAVE  THE  PICTURE  IN  A FILE  CALLED  "STATl .DPY* • 


CALL  SAVE ( 'STATl .DPY' ) 


no  noon  onnnn  >-  v\  ± wrj  nnnnnnn 


The  Contents  of  the  file,  DSPSUB.FTN 


subroutine  rn  draw  a circle  of  radius  r.  bfgins  at  thf 

LFFT  SIDE  AND  ENDS  AT  THE  LEFT  SIDF. 

FASS  THE  DESIRED  PARAMETERS  IN  THF  ARGI  IMF  NTS  IN  THF 
SAME  ORDER  AS  L » I .F  IN  A NORMAL  GRAPHICS  CALL. 

SUBROUTINE  C7RCL  E IR.LP.INT.LE> 

CALL  RDOT  < 0 . .0. »LP. INT.LF) 

XOLD--R 
Y0LD=0 . 

IM=3. 14159 
DTH= 1 5 • /57 . 2958 
DO  1 1=1.24 
TH=TH+DTH 
XNEW=R*COS(TH> 

YNEU=R*SIN(TH) 

XF-XNFW-XOLD 
YF’  = YNEU- YOLD 

IF  < XF'  .LT.  0.  ) GOTO  2 

XF=XF+.5 

GOTO  3 

XP=XF'- . 5 

CONTINUE 

IF ( YP  .LT.  0. ) GOTO  4 

YP=YF'+  • 5 

GOTO  5 

YP=YP-.5 

CONTINUE 

CALL  VECT(XP.YP) 

XOLD=XNEUI 

YOLD=YNEU 

CONTINUE 

RETURN 

END 

SUBROUTINE  TO  DRAW  A HDRT70NTAI  PUS  OF  VARIABI  F LENGTH 
STARTING  FROM  THF  LFFT  CENTER.  DIMENSIONS  ARF  H.3. 

THE  END  IS  THF  RIGHT  CENTER. 

SUBROUTINE  HRUSIH.INT) 

CALL  RDOT < 0 . » 1 . » - 1 » - 1 NT ) 

CALL  VECTIH.O.) 

CALL  RDOT (0. »-2. . »-INT) 

FAIL  VFCTI-H.O.) 

CALL  RDOT (H» 1 . » »-INT) 

RETURN 

END 


SHBROUTINF  TO  DRAW  A VFRTICAl  BUS  OF  I FNOTH  (U>.  STARTING 
FROM  THF  BOTTOM  CENTER  AND  ENDING  AT  THF  TOP  CFNTFR • 
DIMENSIONS  ARE  3 BY  V. 

SUBROUTINE  VBUS(V.INT) 

CALL  RDFJT  <-l,»0..-l . -INT  ) 

CALL  VECT(O..V) 

CALL  ROOT ( 2 . . 0 . r . -INT ) 

CALL  VECT  < 0 . . -V ) 

CALL  RD0T<-1 . .V. .-INT) 

RETURN 

END 
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subroutine  rn 

IT  STARTS  ON 
TOR  CENTER  OF 
ACCORDINGLY. 


DRAW  A TRANSFORMER. 

THF  fin  T TOM  CFNTFR  AND  ENOS  nN 
THE  TRANSFORMER.  POSITION  THF 
SIZE  IS  PY  40. 


THF 

BFAM 


1 


SUBROUTINE  TRANSF 
DIMENSION  TRANS (12) 

DATA  TRANS/A. »12.»A.»-12.,A.,12.»A,,-12. 
A. .12. .A. »-)?./ 

CAIl  ROOT (-10. .28. .0.-4) 

CALL  FIGRdRANS, 12. 101 ) 

CALL  RD0T<0. .-A. .0.-4) 

CALL  VECT(-3A. ,0. ,0,4) 

CALL  ROOT (0. ,-4. ,0,-4)  A 
CALL  VECT ( 3A . ,0. ,0,4)  m 
CALL  RD0T<0. ,-A. ,0,-4) 


i R » -10,28 
i SUBP .’  TOP 
i Rf  10,22 

i R J -10,18 

' R J 18,12 


OF 


TRANSFORMFR 


DO  2 1=1,12 
TRANS ( I ) =-TRANS ( I ) 

CALI  FIGR < TRANS ,12,102)  ' SHOP ! DOT  TOM  OF  TRANS 

CALL  RDOT( 18. ,28. ,0,4)  ' ki  0,40 

RETURN 

END 

SUBROUTINE  TO  DRAW  A Cl OSFD  CIRCUIT  BREAKER. 

START  AT  THE  LOWER  LEFT  AND  FINISH  THERE.  SIZF  TS  20  BY  20. 


SUBROUTINE  CBCLD(INT) 

CAM  VECT (0 . , 20 . , 1 , INT ) 

CALL  DECT (20 . , 0 . ) 

CALL  VECT (0. ,-20. ) 

CALL  VECT (-20. ,0. ) 

RETURN 

END 

SUBROUTINE  TO  DRAW  A OPFN  CIRCUIT  BREAKER. 

STAR!  AT  THE  LOWER  LEFT  AND  FINISH  AT  THE  I OWER  RIGHT. 
SIZE  IS  20  BY  20. 

SUBROUTINE  CBOPN(INT) 

CAM  VEC  T < 20 . , 20 .,-l.INT) 

CAl  I ROOT  < -20 .,0.,,-INT) 

CAlt  VECT (20. ,-20. ) 

RETURN 

END 


SUBROUTINE  TO  CREATE  A HORIZONTAL  RESISTOR.  20  BY  45. 
STARTING  AT  TOP.  FNTUNG  AT  THF  BOTTOM. 

THE  RESISTOR  HAS  A GROUND  SYMBOL  AT  THE  BOTTOM. 


SUBROUTINE  RESIST 
D [ Ml  NS  I ON  RESTS (14) 

DA l A RESTS/O. ,-20. ,-10. ,-5. , 20 . , - 1 0 . . -20 
I - 1 0 . , - 10 . , -5 . , 0 . , -5. / 

CALI  FIGR (RESTS, 14, 114, ,4) 

CALL  RD0T(-10.»0.,,-4> 

CAM  VECT ( 20 . , 0 . , , 4 ) 

CALL  RD0T<-4.,-3.,»-4> 

CALL  VECT (-12. ,0., ,4) 

CALL  RDOT <4.»-3.»»-4) 

CALL  VECT ( 4 . ,0 . ) 

RETURN 

END 
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{ 
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c 

C SIIFtROUT  INF  TD  CREATE  A VERTICAI  RFCTANGIIL  AR  BOX 

C REPRESENTATION  OF  A I OAO. 

C DIMENSIONS  ARE  20  f<Y  04  , STARTING  AT  TOR  AN  I'  FNTiTNG  AT  BOTTOM. 

C 

niifiRniiriNF  t non 
CAI  I VECT ( 0 » » -20 . » -1 , 4 » -1 , 1 ) 
r.Ai  i Rnnr<  lo.  »o. » »-4) 

CALI  VECTIO. ,-40. > 

CALI  VECT ( -20 . » 0 • ) 

CALL  VFCT<0.,40.) 

CAI  l VECT <20. .0,  ) 

FAIL  ROOT  (-10.  , -40 . , , -4 ) 

CAI  L VECT <0. ,-20. > 

CAI  l.  GNri 
RETURN 
FNti 
C 

C St /PROMT  INF  TD  DRAW  A GROUND  SYMBOL  H0RI7DNTAI  LY . 

C ITS  DIMENSIONS  ARE  20  BY  A. 

C 

SUBROUTINE  GNO 
CALL  ROOT (-10. ,0. , ,-4> 

FAI  L VECT  ( 20 . , 0 . ) 

CALI  ROOT (-4. ,-3. , ,-4) 

FAI  L VECT  ( - 1 2 . , 0 . ) 

CAL  L ROOT ( 4 . , -3 . » » -4 ) 

CALL  VECT ( 4 . ,0. ) 

RETURN 
END 
C 

C SUBROUTINES  TO 

C DRAW  AN  OF'FN  AND  CLSO  MANUAL  SWITCH  VERTICAL  I.  Y * 20  UNITS  LONG 

C HINGE  IT  ON  IMF  TOR  AND  SWING  IN  TO  THE  RIGHT.  STARTS  AT  THE 

C T OP  ANO  ENOS  ON  THE  BOTTOM  CONTACT. 

C 

C SUBROUTINE  TO  DRAW  THE  OPEN  MANUAL  SWITCH. 

C 

SUBROUTINE  SWOFV(INT) 

CALL  ROOT <0.»-l.»l»INT  + l) 

CALI  ROOT ( 1 . ,~1 . ,1,-INT) 

CALL  VFCT (12.»-12.»1» INT  > 

CALL  ROOT (-13. ,-5. ,1 , INT+1 ) 

RETURN 
END 
C 

C SUBROUTINE  10  ORAW  THE  Cl  OSEO  MANUAL  SWITCH. 

C 

SUBROUTINE  SWCLV 
CALL  ROOT (0. ,-l . , 1 , 4) 

CALI  ROOT (0. »-I . » I ,-4) 

CAI.1  VFCTCO.  ,-14.  , » -4) 

CALI  ROOT (0., - 1 . • 1 , 4 > 

RE  TURN 
ENO 
C 

C ORAW  AN  OFF N ANO  Cl  OSFO  MANUAL  SWITCH  HnRT70NTAI  LY . 

C 20  UNITS  I ONG.  H T NOE  TT  ON  THE  LEFT  ANO  SWTNG  IT  UP. 

C STARTS  (IN  IHF  LEFT  ANO  FNOS  ON  THF  RIGHT. 

C 

C SUBROUT  INI  TO  BRAW  OPEN  SWITCH  HOR 1 70NTAL  L Y • 

C 

SUBROUTINE  SWOPH(INT) 

I All  RBOT (1 . ,0. ,, INT+1 ) 

CAI  t RBOT <i.,l.»,-INT> 

CALL  VECT < 12. , 12. , 1 ) 

CALL  RBOT  <5. ,-13. »-l , INT+1 > 

RETURN 
END 


! R»  2.1 
' R t 14,13 
• Rl  19.0 


I R»  0.-2 
! R » 0.-19 


i R r 1,-2 
i R i 0,-19 


• R i — 1 0,-80  FB  FOR  GNO 

l R r 14.-FL3 
' R 5 -F)»-F)3 


' R » 0,-20 

i R S 10,-10 

» r;  i o.-4o 

l R ; -10, -40 

• r;  -10.-20 
i r;  io, -?o 

' R»  0,-40 
I R}  0,-RO 
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c 

C SUBROUTINE  TO  PRAM  CL05FD  SWI  ICH  HORIZONTALLY. 

C 

SUBROUTINE  SUCLH(INT) 


CALL 

RDOT ( I . .0. . 

fINT+1  ) 

' Rf 

I fO 

CALL 

RDOT ( 1 . ,0. . 

.-4) 

' Rf 

2 f 0 

CALL 

VECT (16. .0. 

. 1 ) 

• Rf 

IGfO 

CALL 

RDOT  < 1 . ,0. . 

-1 . INT41  ) 

1 Rf 

1 9 f 0 

RETURN 

END 

C 

C SUBROUTINE  TO  DRAW  A DOWNWARD  POINTING  ARROW. 

C STARTS  AT  THE  POINT  AND  ENDS  THERE. 

C 

SUBROUTINE  ARROUOU  Pf INTfLF) 

CALI  VEST  (-7.  . 10.  fLPf  INT.LE) 

CALL  ROOT <14. .0. f f-INT) 

CALL  VECT < -7. .-10. ) 

RETURN 

END 

C 

C SUBROUTINE  TO  DRAW  A UPWARD  POINTING  ARROW. 

C STARTS  AT  THE  POINT  AND  ENDS  IHERE. 

C 

SUBROUTINE  ARROW!) ( l P»  INT.l.F) 

CALL  VECT < -7 . f - 10 . »LP > INT . LF ) 

CALL  RDOT< 14. .0. » f-INT> 

CALL  VECT< -7. . 10.  ) 

RETURN 

END 

C 

C SUBROUTINE  TO  DRAW  A CAPACITOR  HORIZONTALLY.  DIMENSIONS  ARE 

C 30  BY  10.  ■ 

c 

SUBROUTINE  CAF'CTR 

CALL  RDOT  <-15.f0.f-1f-4) 

CALL  VECT ( 30 . f 0 . ) 

CALL  RDOT < 0 . » -9 . » - 1 » -4  > 

CALI  VECT <-?.» 1 . ) 

CALL  VFCT ( -3 . f 1 . ) 

CALL  VECT<-2.»1.) 

CALL  VECT <-6. » 1 . ) 

CALL  VECT < -4 . f 0 . > 

CALL  VECT <-6. * — 1 . ) 

CALL  VECT (-2. .-1 . ) 

CALL  VECT (-3. .-1 . ) 

CALL  VECT ( -2 . » - 1 . ) 

CALI  RDOT <15. >4.) 

RETURN 

END 


THE  'CONTROL .FTN*  FILE  CONTAINS  THF  FORTRAN  SOURCE  FUR  THE 
MAIN  CONTROL  PROGRAM.  IT  USES  SUBROUTINES  CONTAINED  IN  A FILE 
CALLED  ' CNTLSB .FTN * . FIHT  THE  FILES  USING  THF  EDIT  UTILITY. 

TO  COMPILE  WITHOUT  A SOURCE  LISTING.  TYRES 

>FOR  CONTROL=CONTROL 
AND  >FOR  CNTLSB=CNTLSB 

TO  COMPILE  WITH  A NUMBERED  SOURCE  LISTING.  TYPES 

>FOR  CONTROL=CONTROL/LI S 1 
AND  >FOR  CNTLSB=CNTLSB/LI S 1 

TO  TASK  BUILD  USING  THF  INDIRECT  COMMAND  FILE.  TYPES 

>TKB  PCONTROL 

THIS  CAUSES  FILES.  'CONTROL . OBJ • AND  'CNTLSB. OBJ* . TO  PE 
CREATED  BY  THF  'FOR'  COMMAND  AND  A FILE.  ' CONTROL . TSK ' . TO  BE 
CREATED  BY  THE  ' TKB ' COMMAND. 

THE  '(?■  SYMBOL  INDICATES  THE  "SE  OF  AN  INDIRECT  COMMAND  ETIE.  THIS 
IS  FILE.  'CONTROL. CMD' . AND  CONTAINS  THE  TASK  BUILDFR  COMMANDS  NECESSARY 
TO  BUILD  THIS  TASK. 

TO  CONTROL  THE  SIMULATOR  WITH  THE  CON  I ROL  TASK,  TURN  ON  THE 
VT-11  AND  TYPES 


: RUN  CONTROL 


THE  LIST  OF  SUBPICTURES  ACTIVE  AT  ANY  ONE  TIME  WILL  DEPEND 
UPON  WHICH  DISPLAY  IS  ACTIVE  AT  THE  TIME. 


Mfjnoo  unnn  non  wonn  n r:  o -*  “ ►»  «-  n n n o onnoooonnnnorsnn 


THE  MAIN  C0NTR01  PROGRAM  FOR  THF  SIMULATOR. 


DETAILED  COMMENT  AF'F'I  TFS  ONLY  TO  THF  FIRST  TWO  PICTURES. 

THF  REMAINDER  ARE  IDENTICAL  AND  IISF  A SUBROUTINE  TO 
ACCOMPLISH  THE  TRICKERY. 

SET  IIP  THE  COMMON  BLOCKS  RFDIITRFD  FOR  THF  GRAPHICS  BUFFER 
AND  ALSO  THE  BL  OCK  THAI  STORFS  THF  ARRAY  SUM  00). 

THIS  ARRAY  IS  A 'LOGICAL  *1.*  ARRAY  DUTCH  MEANS  TT  IISFR  ONI  Y 
ONE  BYTE  PER  SUBSCRIPT.  THF  ARRAY'S  NAME  IS  SHORT  FOR  SUTTCHt 
AND  THE  ARRAY  CONTAINS  DATA  TO  CHANGE  100  SWITCHER  ON  IHF  HRS- It/ 
SIMULATOR  INTERFACE.  THF  ARRAY  IS  ALSO  INI  (LAI  I7ED  TO  All  'FALSE* 
OR  INITIAL  SWITCH  POSITION  10  BEGIN  THF  PROGRAM. 

L0GICAL*1  SW 

COMMON/DFILE/IBUF < 1 100 ) /SUB/SW ( 100 ) 

DIMENSION  TIM( 2 ) » BAT  < 3 ) 

DATA  SW/ 100*. FALSE./ 

DATA  TIM/2*0./ 

THE  ONLY  AUTOMATIC  PICTURE  ON  THE  PROGRAM  IS  THE  INTRODUCTION 
PICTURE  AND  HERE  IT  IS. 

00  CALL  INI T ( 1 100 ) 

CALL  RSTR< ' INTRO. DPY' > 1 RESTORE  PTCT  FROM  DISK 

40  CALL  CLREF  (11)  ! CLR  THF  1ST  F’FN  FVFNT  FLAG 

20  CALL  l PEN(M.N.XX.YY)  I RET  THF  SHOP  WHERE  LOT  F’FN  HIT 

IF< M . EG . 0 ) GOTO  120  * LOOP  TO  WAIT  FOR  LOT  PEN  HIT 

CALL  ON (90)  i TURN  ON  YOU  SURF? 

CALL  CLREF (11)  1 CLR  LET  PEN  EVENT  FLAG 

NZ=0  i RESET  N7  TO  7FR0 

30  CALL  L.PEN ( M7 » N7 ) • CK  TF  HIT  IS  SURF 

I F ( N7 . NF  .91  .AND.  N7  . NF  . 92 ) GOTO  ISO  ■ CHFC.K  YES  OR  NO 

CALL  OFF (90)  ' TURN  OFF  YOU  SURE? 

IE(N7.EG.92) GOTO  140  > IF  NO  GO  TO  START 

COMPUTED  GO  TO  FOR  ROUTING  OF  MENU  HITS. 

GOTO ( 200 .1100. 900 . 800 .1000. 300 , 700 » 4" 0 . AOO . soo . 9999 ) , N 

INITIATE  THE  HV  TRANSMISSION  PICTURF  WITH  ASSOCTATED  DATA. 

00  CALL  I NIT ( 1 1 00 ) 

CALL  RSTR ( ' HVTRNS . DPY ' ) • RESTORE  PICTURE 

PLACE  THF  DATE  ON  THE  PICTURE. 

CALL  DATE (DAT) 

CALL  APNT( BBS. .900. .-1,-5) 

CALL  TEXT (DAT) 

UPDATE  THE  PICTURE'S  SWITCHES  AND  CIRCUIT  BREAKERS. 

10  CALL  UPDATE (1,20) 

CALL  UPDATE (AO, 64) 

SET  UP  LOOP  TO  DISPLAY  DATA  AND  DETECT  LIGHT  PFN  HITS. 

20  CALL  CLREF (11)  ! CLR  LPEN  HIT 

30  CALL  TIME (TIM) 

CALL  NMBR ( 239 , T I M ( 1 ) , 4 , ' ( A4 ) ' ) 
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c 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

240 

C 

C 

c 

c 

c 

c 

c 


251 


C 

C 

C 


CALL  NMBR<240,TIM<2> .4, ' (A4)  ' > 

CHECK  FOR  LIGHT  FEN  HIT. 

CALL  LPEN<M»N»XX»YY) 

IF < M . EQ . 0 ) GOTO  230 

Cl  EAR  EVENT  FLAG  FOR  TI-IF  LIGHT  PEN  SO  NG  FIIRTHFR  ACTION  Will. 
TAKE  PLACE  UNTIL  THE  DOUBLE  CHECK  LIGHT  PFN  HIT  IS  MAKE. 
FIRST  TURN  ON  THE  ‘YOU  SURE? ' SWITCH. 

CALL  ON (90) 

CALL  CLREF(ll) 

SET  UP  LOOP  FOR  LIGHT  PEN  HIT  ON  * ARF  YOU  SURE’*  ANSWER. 


NZ=0 

CALL  I.PEN  < M7  » N7  ) 

IF ( N7 .NE .91  .AND.  N7.NE.921G0  TO  240 
TURN  OFF  ‘YOU  SURE?'  PICTURE. 

CALL  OFF (90) 


IF(N7.EQ.92)G0T0  220  ! IF  'NO*  GO  TO  START 

IF  THE  HIT  WAS  NOT  ON  A SWITCH  OR  CIRCUIT  BRFAKER  GO  TO  250. 

IF ( N . GT . 200 ) GOTO  260 
IF  < N . GT . 90 ) N=N- 100 

ROUTINE  TO  CHANGE  CIRCUIT  BREAKER  AND  SWTTCHFS  ARRAY. 

IF ( SW ( N ) . EO . .TRUE. )GOTO  251 
SW ( N ) = . TRUE . 

GOTO  210 
SW<N)=. FALSE. 

GOTO  210 


CALCULATE  THE  NUMBERS  FOR  THE  COMPUTED  GO  TO  STATEMENTS. 


<: 

260  NR=N-200 

C 

GOTO < 1000,900, 100,300,400,800) ,NB 
C 
c 

c********************************************************************** 

c 

C THE  SUBSTATION  4 PICTURE  AND  DATA. 

C 

300  CALL  TNTT  <11 00 ) 

CALI  RSTR  < 'SUBST4.DPY' ) 

CALL  CHECK  < 21 , 26.27 , 27 » 949 » 950, N ) 

NR:=N-300 

GOTO <200 .600 ,700.1 00 ) »NB 
C 

C* ** ************************************* ********* ********************* 

c 

C THE  SUBSTATION  6 PICTURE  AND  DATA. 

C 

400  CALL  INIT < 1 100) 

CALL  RSTR  < ' SUBST6 . DPY ' ) 

CALL  CHECK <32 ,38, 71 ,76. 958, 958, N) 

NB=N-400 

GOTO <200, 500, 600, 100) »NB 


. 


- 

j 

' 
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c 

C ******************************************  **************************** 

c 

C THE  LOAD  CENTER  PICTURE  AND  DATA  PLACEMENT. 

C 

500  CALL  INIT(llOO) 

CALL  RSTR < ' LDCTR . DPY ' ) 

CALI.  CHECK  <37.44.45.45. 954 , 958 . N ) 

NR=N-500 

GOTO  <200.400. LOO) .NR 
C 

c ************ ******** ************************************************** 

c 

C THE  NETWORK  SYSTEM  PICTURE  AND  DATA  PLACEMENT. 

C 

600  CALL  INIT ( 1 1 00 ) 

CALL  RSTR< 'NETSYS . DPY ' ) 

CALL  CHECK <26,32,33,33, 959 . 964 . N ) 

NB=N~ 600 

GOTO  < 200 . 400 . 300 » 200 , 1 00 ) , NR 
C 

c ************************************************************** ******** 

c 

C THE  INDUSTRIAL  LOAD  PICTURE  AND  DATA  PLACEMENT. 

C 

700  CALL  INITU100) 

CALL  RSTR < 'INDLD. DPY' ) 

CALL  CHECK <53. 58. 23. 23. 951 .953. N) 

NB=N-700 

GOTO  < 200 . 300 . 700 . 700 . 900 . 1 000 . POO . 1 00 ) . NR 
C 

r ********************************************************************** 

c 

C THE  STATION  11  PICTURE  AND  DATA  PLACEMENT. 

C 

800  CALL  INIT < 1 100) 

CALL  RSTR< 'STATU. DPY' ) 

CALL  CHECK <13»17.65.70.946.948.N) 

NB=N-800 

GOTO  < 200 » 200 . 000 . 800 . 900 . 1 000 . 1 00  > . NR 
C 

c 

c******************** *************** **************** ****** ************* 

c 

C THE  STATION  1 PICTURE  AND  DATA  PLACEMENT. 

C 

900  CALL  INIT < 1 100) 

CALL  RSTR< 'STAT1 .DPY' ) 

CALL  CHECK  <7.12.46,50. 936 , 945 , N ) 

ND=N-900 

GOTO  < 200 . 900 . 900 . 900 . 900 . 900 , 900 . 900 .900.1100,1000. 800 . 1 00 ) , NR 
C 

C ************************************************ ********************** 

c 

C THE  GENERATOR  1 PICTURE  AND  DATA  PLACEMENT. 

C 

1000  CALL  TNIT< 1 100 ) 

CALL  RSTR  < 'GEN1 . DPY ' ) 

CALL  CHECK<6»6.51 .52.931 .935.N) 

NR=N~100<> 

GOTO  < 200 ,1100, 900 , 800 .100.1 000 ,1000,1 000 . 1 000 ) , NR 

c 

c************* ******** ************************* ************************ 

C 

C THE  SYNCRONIZING  PICTURE  AND  DATA  PLACEMENT. 

C 
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1100 


T 


not  l lNTTIllOO) 

CALI.  RSTR<  'SYNCRN.DPY'  ) 

CAll  CHECK  <4»1'1,15»1S«931»9'T2»N) 

NR=N~1100 

GOTO  <1100,1100.1100,1100,1100,1100.1100.1100.1100.1100.1100, 
1 1100.1100.1100,  200 , 900 , .1 000 , BOO  ,100 ) , NR 


9999  STOP 
END 


THE  FOLLOWING  IS  CONTAINED  IN  THE  FILE,  CONTROL. CMD5 


CONTROL/-CP. TI S /SH-CONTROL .CNTLSD, GLIB/LB 
/ 

ASG=GRO 1 1 
// 
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The  Contents  of  the  file,  CNTLSB.FTN; 

c subroutine:  to  choose  a CHANNEL  OF  THF  A-n  converters  for 

C DISPLAY  ON  THF  SCREEN. 

C 

SUBROUTINE  SINCON( ICHAN. VOLTS) 

DIMENSION  I ERR  1 2 > » VAR ( 1 ) 

C 

C SINGLE  CHANNEL  A/D  CONVERSION  PROGRAM 

C PARAMETER  (ICHAN)  CONTAINS  THE  CHANNFI  NO.  (1-3?) 

C 

10  I CHAL= I CHAN-931 

IF( ICHAL.GE. 17)G0  TO  30 
CAL  L.  ASARl.N  (3.1  ERR  r 0 ) 

GO  TO  50 

30  TCHAL-ICHAl -17 

35  CALL  ASARLNI3.IERR.1 > 

50  CONV  ADCI ICHAL .VAR. 1 . I ERR ) /64 . 

55  VOL TS= ( C0NV*5 . 0 > / 1023 . 0 

05  RETURN 

FND 
C 

C SUBROUTINE  TO  UPDATE  THF  PICTURE  FVFRY  TTMF  TT  IS  CALLED . 

C THE  ARGUMENTS  ARE  THE  BOUNDS  OF  THF  SUSP IT TURF'S  NUMBERS 

C THAT  BELONG  TO  THF  PICTURE  BFING  DISPLAYED  AT  THF  TTMF. 

C 

SUBROUTINE  UPDATE ( J1 . J2) 

LOGICAL  )K1  SU 
COMMON/SUB/SU ( 100) 

C 

DO  250  I-Jl.J? 

C 

C CHFCK  IF  UPDATE  IS  FOR  FUNCTIONAL  SWITCH  OF  CIRCUIT  BREAKER . 

C 

IF(I.GT.4<4)GOTO  440 
11=1+100 
C 

C UPDATE  CIRCUIT  BRFAKER  SUBPICTURE. 

C 

IFISWI I ) .EG. .FALSE. >GOTO  251 
CALL  OFF (II) 

GOTO  250 

251  CALL  ON (II) 

GOTO  250 
C 

C UPDATE  FUNCTIONAL  SWITCH  PICTURE. 

C 

440  IF<SW< I ) .EQ. .FALSE. )GOTO  451 

CALI  OFF  < I ) 

CAI.  L ON  ( 1 + 100 ) 

GOTO  250 

451  CALL  OFF 1 1 + 1 00 ) 

CALL  ONI  I) 

250  CONTINUE 

RETURN 
END 
C 
C 

C SUBROUTINE  TO  UPDATE  THF  DATA  AND  CHANGE  THF  SWITCHES  IN  THE 

C MAIN  PROGRAM.  L1.L2.L3.  AND  1.4  ARE  ARGUMENTS  FOR  TWO  UPDATE 

C CALLS.  15  AND  I 6 ARE  ARGMMFNTS  FOR  DO  LOOP  TO  POSITION  DATA 

C ON  THE  SCREFN.  N IS  SUBPICTURF  NUMBER  WHFRF  I IGHT  FFN  HIT  OCCURS 

C FOR  PASSING  PACK  TO  MAIN  PROGRAM.  THF  ROUTINE  WORKS  AS  THE  LOOPS 

C IN  THE  MAIN  PROGRAM. 
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c 

SUBROUTINE  CHECK  (LI  »L2 » L3 » L4  »L5 » l.6»N ) 
LOG I CAL SU 
COMMON/SUB/SU ( 100) 

100  CALL  UPDATE (L1.L2) 

CALL  UPDATE ( L3 * L4 ) 

120  CALL  CLREF(ll) 

130  DO  131  I =L5  * L<4 

CALL  SINCON(  T »UOL.  IS) 

131  CALL  NMBR< I » VOLTS »5» ' (F5.2) ' ) 

CALL  LF'EN(M.N.XX»YY) 

IF ( M . EQ . 0 ) GOTO  130 
CALL  ON ( 90 ) 

CALL  CLREF(ll) 

NZ=0 

140  CALL  L.PEN(M7»N7) 

IF ( N7 . NE . 91  .AND.  N7 . NF . 92 ) ROTO  140 
CALL  OFF (90) 

IF(N7.E0.92) GOTO  120 
IF  < N . GT . 200 ) GOTO  150 
IF ( N . OT . 90 ) N=N- 1 00 
IF(SW(N) .EO. .TRUE. )GOTO  151 
SW  < N ) - . TRUE . 

GOTO  100 

151  SU(N)=. FALSE. 

GOTO  100 
150  RETURN 

END 
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The  Contents  of  the  file,  ADCHNL.TXT; 

THIS  Fit  F CONTAINS  THF  INFORMATION  FOR  IMF  ANAI  OR  10  DIGITAL 
CHANNFLS . THF  I NFORMA  I TON  NFCFSSARY  TO  HSF  THF  Ah'-  1 I ' S SO  THAT  1 HFY 
MONITOR  THE  CHANNELS  THAT  THF  CONTROL  PROGRAM  DtRPI  AYS.  FOIIOWS. 

THERE  ARE  PRESENTL  Y .52  CHANNELS  AVAIL  ARLE  NUMBERED  FROM  ONF  TO  .52. 

THF  PROGRAM  CHANGES  THE  CHANNELS  TO  BE  NUMBERED  FROM  7FR0  TO  31. 

FOR  THE  AR-ll'S.  THIS  LISTING  IS  NUMBERED  FROM  ONF  TO  3?  SO  THAT 
ANYONE  WORKING  WITH  1 HE  SOFTWARE  WILL  NOT  HAVF  TO  CHANGE  THE  NUMBERS. 
ANYONE  WORKING  WITH  THE  HARDWARE  WILL  HAVE  TO  SUBTRACT  ONE  FROM  THE 
CHANNEL  NUMBERS  GIVEN  HERE. 

THERE  ARE  SOME  ADDITIONAL  CHANNELS  NEEDED.  THEY  HAVF  BEEN  GIVEN 


PICTURE  NUMBERS 

FROM 

33  UP.  ADDITIONAL 

CIRCUITRY  Will  HAVF 

TO  BF  BUILT 

TO  HAND! E THESE. 
CHANNELS  ANYWAY. 

IT 

SHOULD  BE  POSSIBLE 

TO  OPERATE  WITHOUT 

THF  FXTRA 

CHANNEL  NUMBER 

VARIABLE 

FROM  SUBPICTURE  NUMBER 

1 

VOLTS 

GEN  1 

931 

2 

FREO 

GEN  1 

932 

3 

AMPS 

GEN  1 

933 

4 

PF 

GEN  1 

934 

5 

KU 

GEN  1 

935 

6 

VOLTS 

GEN  7 

9.36 

7 

FREQ 

GEN  2 

937 

8 

AMPS 

GEN  2 

938 

9 

PF 

GEN  2 

9,39 

10 

KW 

GEN  7 

940 

11 

VOLTS 

GEN  3 

941 

12 

FREO 

GEN  3 

942 

13 

AMPS 

GEN  3 

943 

14 

PF 

GEN  3 

944 

15 

KW 

GEN  3 

945 

16 

VOLTS 

TNT  CON  L-L 

946 

17 

FREQ 

INT  CON 

947 

18 

AMPS 

TNT  CON 

948 

19 

VOLTS 

SUB-ST  4 LEFT  BUS 

949 

20 

VOLTS 

SUB-ST  4 RIGHT  BUS 

950 

21 

VOLTS 

INDUST  LD 

951 

22 

PE 

INDUST  LD 

952 

23 

AMPS 

INBUST  LD 

953 

24 

AMPS 

LD  CTR  RT 

954 

25 

AMPS 

LD  CTR  LT 

955 

26 

VOLTS 

LD  CTR  LT 

956 

27 

VOLTS 

LD  CTR  RT 

957 

28 

VOLTS 

SUB-ST  6 BUS 

958 

29 

VOLTS  L-N  1 

NETWORK  SYS 

959 

30 

VOLTS  L-N  2 

NETWORK  SYS 

960 

31 

VOLTS  L-N  3 

NETWORK  SYS 

96t 

32 

AMPS  LINE  1 

NETWORK  SYS 

96? 

* 

* 

* * 

* * * 

* 

33 

AMPS  LINE  7 

NETWORK  SYS 

963 

34 

AMPS  LINE  3 

NETWORK  SYS 

964 

35 

VOLTS 

ST  11  BUS 

965 

36 

VOLTS 

ST  1 BUS 

966 

37 

VOLTS 

GEN  1 ABOVE  CKT  BKR 

967 
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The  Contents  of  the  file,  SUBNUM.TXT;  a list  of  the  common  subpictures. 

THIS  FILE:  CONTAINS  THE  listings  of  thf  sijbe.icti.ire  numbers  and 
THEIR  CORRESPOND I NG  SIMULATOR  PART  OR  DEFINITION. 

THE  FIRST  SECTION  CONTAINS  THE  SUBPICTURE  NUMBERS  ASSOCIATED 
WITH  ALL  THE  PICTURES.  THE  FIRST  SUBPICTURE  NUMBER  IS  THE  INITIAL 
CONDITION  POSITION  OF  THE  ASSOCIATED  SWITCH  AND  THE  SECOND  NUMRFR 
IS  THE  FIRST  PLUS  100.  THE  SECOND  SUBPICTURF  IS  THE  OPPOSITE  POSITION 
OF  THE  SWITCH  FROM  ITS  INITIAL  CONDITION.  THE  TNITTAI  CONDITION  OF 
ALL  CIRCUIT  BREAKERS  AND  SWITCHES  IS  OPEN  EXCEPT  FOR  THOSE  MARKED 
CLOSED. 

SUBPICTURE  NUMBER  SWITCH  COMPANION  SUBPICTURE 


1 

CD 

RING  BUS  #1 

101 

2 

CB 

RING  BUS  *2 

102 

3 

CB 

RING  BUS  *3 

103 

4 

CB 

RING  BUS  #4 

104 

5 

CB 

RING  BUS  *5 

105 

6 

CB 

GEN  1 

106 

7 

CP 

GEN  2 

107 

8 

CB 

GEN  3 

108 

9 

CB 

LINE  Al-3 

109 

10 

CB 

LINE  Bl-3 

110 

11 

CB 

LINE  Cl-U  STAT 

1 

111 

12 

CB 

LINE  Dl-11  STAT 

1 

112 

13 

CB 

INT  CON 

113 

14 

CB 

LINE  Cl-U  STAT 

11 

114 

15 

CB 

LINE  Dl-11  STAT 

11 

115 

16 

CB 

LINE  FI 0-11 

116 

17 

CB 

LINE  El 0-1 1 

117 

18 

CB 

LINE  E4-6 

118 

19 

CB 

SUB  ST  4 *1 

1 19 

20 

CB 

SUB  ST  4 #2 

120 

21 

CB 

SUB  ST  4 *3 

121 

22 

CB 

SUB  ST  4 #6 

122 

23 

CB 

SUB  ST  4 #9 

123 

24 

CB 

SUB  ST  4 *4 

124 

25 

CB 

SUB  ST  4 *5 

125 

26 

CB 

SUB  ST  4 #8 

126 

27 

CB 

SUB  ST  4 #7 

127 

28 

CB 

NET  SYS  *4 

128 

29 

CB 

NET  SYS  *2 

129 

30 

CB 

NET  SYS  *3 

1 30 

31 

CB 

NET  SYS  #1 

131 

32 

CB 

SUB  ST  6 *4 

132 

I 
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SUBFICTURE  NUMBER  SWITCH  COMPANION  SUBPICTURE 


33 

CB  SUP  ST  6 *5 

133 

34 

CB  SUB  ST  6 *1 

134 

35 

CH  SUB  ST  6 *2 

135 

36 

CB  SUB  ST  6 *3 

136 

37 

CB  SUB  ST  6 *7 

137 

38 

cr<  sub  sr  6 *6 

138 

3? 

CB  LB  CTR  *SS-1 

139 

40 

CB  LB  CTR  #SS-3 

140 

41 

CB  LB  CTR  #1 

141 

42 

CB  LB  CTR  #2 

142 

43 

CB  LB  CTR  #3 

1 43 

44 

CB  LB  CTR  #4 

144 

45 

CB  LB  CTR  #SS-2 

145 

46 

CB  ST  1 SCRY  LB 

146 

47 

SU  GEN  2 B C SUP-PRIME  MOYER 

147 

48 

SU  GEN  2 EXCITATION 

148 

4? 

SU  GEN  3 BC  SUP-PRIME  MOVFR 

149 

50 

SU  GEN  3 EXCITATION 

150 

51 

SU  GEN  1 BC  SUP-PRIME  MOVER 

151 

52 

SU  GEN  1 EXCITATION 

152 

53 

SU  INBUST  LGT  LB 

153 

54 

SU  INBIJST  HEAT  LB 

154 

55 

SU  INBIJST  POUER  LB  *1 

155 

56 

SU  INBIJST  POUER  LB  *2 

156 

57 

SU  INBIJST  REACTIVE  LB 

157 

58 

SU  INBIJST  CAPACITOR 

158 

59 

NOT  IN  USE 

159 

60 

SU  SECT  ST  *602  (CLOSEB) 

160 

61 

SU  SECT  ST  *605  (CIOSEB) 

161 

62 

SU  SECT  ST  *601  (CLOSEB) 

162 

63 

SU  SECT  ST  *604  (CIOSEB) 

163 

64 

SU  SECT  ST  *603 

164 

65 

SU  STATION  11  EMER  GEN 

165 

66 

SU  STATION  11  Bl-11 

166 

67 

SU  STATION  11  F10-11 

167 

68 

SU  STATION  11  El 0-11 

168 

69 

SU  STATION  11  INT  CON 

169 

70 

SU  STATION  11  Cl-11 

170 

71 

SU  SUB  ST  6 *407 

171 

72 

SU  SUP  ST  6 *509 

172 

73 

SU  SUB  ST  6 *521 

173 

74 

SU  SUB  ST  6 *514 

174 

75 

SU  SUB  ST  6 *517 

175 

76 

SU  SUB  ST  6 *414 

176 

i 
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